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ABSTRACT 


OSL/2,  an  Operating  System  Language,  was  designed  for  the 
coding  of  supervisory  systems.   OSL/2  is  an  ALGOL-based  language  that 
may  be  readily  extended  to  a  general  purpose  language  with  the  addition 
of  a  few  data  types  (e.g.,  floating  point  numbers).   The  language  replaces 
an  interrupt  concept  with  the  P  and  V  operators  on  semaphores  described 
by  Dijkstra.   Concepts  of  multiple  processes  and  system  layers  allow 
OSL/2  to  be  used  as  a  job  control  language  for  an  OSL/2  coded  supervisory 
system.  The  system  layering  concepts  provide  for  easy  system  extension 
and  hierarchical  structuring.  A  powerful  method  of  specifying  access 
techniques  is  used  to  implement  queues,  tables,  etc.  and  treat  them  as 
primitive  data  items  in  the  language.   The  language  is  presented  in  narra- 
tive and  reference  formats.   Hardware  implications  are  discussed  and  an 
OSL/2  compiler  which  runs  on  the  Burroughs  5500  is  briefly  described.   The 
implications  of  the  language  on  system  measurement,  simulation,  and  modifi- 
cation are  also  discussed. 
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Chapter  1 
OSL/2  Concepts,  Philosophies,  and  Goals 

For  many  years  supervisory  and  monitor  systems  have  been  coded 
in  machine  level  languages  by  a  rather  priviledged  set  of  system  coders. 
Machine  level  languages  have  been  used  to  improve  system  efficiency.   The 
systems  programmer  has  been  allowed  the  privilege  of  unprotected  access 
to  all  portions  of  a  system  on  the  assumption  that  he  is  a  capable  coder 
not  subject  to  the  errors  of  the  normal  applications  coder. 

Unfortunately,  assembly  language  coded  systems  have  shown  them- 
selves to  be  grossly  inefficient.   For  example,  consider  the  differences 
in  system  overhead  and  reliability  between  two  similar  systems  like  ASP 
[l,  2,  3,  k]    and  HASP  [5]  on  the  IBM  system/360.   HASP  commonly  experiences 
two  to  four  times  less  overhead  than  ASP.   Yet,  in  the  opinion  of  this 
author,  a  factor  of  at  least  2  if  not  k   improvement  is  still  available 
in  HASP  if  the  queuing  and  event  structure  were  reorganized.   Even  a 
reasonably  small  system  like  IBSYS  [6]  for  the  IBM  709^  has  significantly 
less  throughput  capability  than  P0RTH0S  [7]  when  a  university  job  mix  is 
being  processed.   Analyses  of  the  GECOS  systems  for  the  GE  machines,  EXEC 
systems  for  Univac  machines,  etc.,  would  yield  similar  examples  of  widely 
varying  efficiencies  in  different  assembly  language  coded  systems  for  the 
same  machine.   By  comparison  the  Burroughs  MCP  [8]  (Master  Control  Program) 
for  the  B5500  experiences  relatively  low  system  overhead  even  though  the 
B5500  MCP  is  coded  in  the  high  level  language  ESPOL  [9]-- -an  ALGOL  language 
derivative.   The  important  point  to  be  made  here  is  that  assembly  language 
has  not  automatically  brought  efficiencies.   Good  system  design  is  clearly 
the  most  important  factor  and  does  lead  to  efficiencies. 


An  examination  of  existing  operating  systems   also  shows  that, 
with  the  notahle  exception  of  the  THE  Multiprogramming  System  [10],  errors 
are  plentiful.     The  author's  personal  experience  has  teen  that  even  in 
very  old  systems,   about  five  to  ten  per  cent  of  the  errors  that  were  dis- 
covered late  in  the  life  of  a  system  were  undiscovered  key  punch  errors. 
Of  the  remaining  errors,   ahout  one  third  to  one  half  are  addressing  errors 
most  of  which  could  he  caught  hy  a  simple  array  hounds  or  index  check  in 
a  high  level  language.     After  encountering  literally  hundreds  of  examples 
of  trivial  errors  which  should  not  have  heen  made  hy  systems  programmers, 
the   author  has   come  to  the   conclusion  that  systems   programmers   are   as 
prone  to  make  mistakes  as  applications  coders.     They  are  in  need  of  tools     j 
which  help  them  avoid  inadvertant  errors  hy  restricting  the  scope  of  their 
actions  to  the  particular  task  at  hand  -  for  example,   an  automatic  index 
hounds   check.     Because  of  the  drastic  and  widely  propagated  effects  of  a 
system  error,  systems  programming  rehires  at  least  as  much  protection  as 
that   availahle  to   applications  programming. 

The  cost  of  huilding  operating  and  support  systems  is  now  so  j 

prohibitive  that  new  machines   are  required  to  be  downward  compatible  with 
old  machines  on  which  working  assembly  language  system  software  already       j 
exists.      Yet   new  hardware   architectures   continue  to  be   developed  with  a 
wide  variety  of  addressing   features   that    cannot  be  used  because  they  con- 
flict with   old  techniques.      This   is   especially  unfortunate  when  one   realisj 
that   the  vast  majority   of  system  software  need  not  be  machine   dependent. 
Most   system  software   is    concerned  with  table  and  queue  manipulation,   i.e., 
with  the  specification  of  scheduling  algorithms.     Machine  dependence  has 
heen   forced  as   a  by-prcduct   of  the  use   of  machine   dependent   languages. 


The  only  parts  of  a  system  that  are  truly  machine  dependent  are  the 
interrupt  handlers  of  the  supervisor,  the  code  emitter  portions  of  the 
higher  level  language  compilers,  and  the  assembly  language  itself. 

In  1968  Wells  and  Alsberg  designed  OSL  -  an  Operating  System 
Language  [ll].   OSL  executed  on  one  processor  and  was  connected  to  any 
number  of  other  processors  such  as  arithmetic  units,  data  channels,  and 
peripheral  storage  devices.   First  in  first  out  queues  and  pointers  were 
provided  as  primitive  data  types  in  the  language.   Interrupts  were 
handled  by  automatically  invoked  procedures.   It  was  possible  to  dynamically 
change  the  procedures  to  be  invoked  for  each  interrupt. 

OSL  was  a  block  structured  ALGOL  60  derivative  which  interfaced 
with  hardware  through  eight  primitive  procedures.   For  example,  the  "route" 
primitive  connected  an  interrupt  with  the  procedure  to  process  the  interrupt, 
Each  of  these  primitives  was  designed  to  be  implemented  on  most  machines 
with  an  extremely  small  number  of  instructions  (usually,  only  about  a  dozen 
were  required) .   In  this  manner  one  could  guarantee  an  easy  implementation 
of  the  hardware  interface  on  most  machines. 

A  task  scheduler  for  a  multiprogramming  system  was  coded  in  OSL. 
Since  multiprocessing  and  multiprogramming  concepts  were  embedded  in  OSL 
only  a  few  dozen  lines  of  code  were  required.   This  code  was  then  examined 
with  the  intention  of  running  the  same  code  on  an  IBM  360/75  and  an  IBM 
709^.   Due  to  the  limited  time  available  to  the  authors,  they  were  unable 
to  build  OSL  compilers  for  both  machines.   However,  by  the  time  the  project 
was  abandoned,  they  had  verified  that  the  identical  OSL  code  could  be  made 
to  run  on  both  machines  and  that  the  primitives  involved  could  be  imple- 
mented in  just  a  few  instructions  on  both  machines. 
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OSL  was  designed  with  machine  independence  as  a  major  goal.   Thus 
it  was  completely  divorced  from  any  particular  addressing  scheme.   As  a 
result  a  multiprogramming  system  coded  in  OSL  would  very  likely  run  poorly 
on  an  infinite  memory  descriptor  machine  like  a  B5500  or  a  virtual  memory 
paged  machine  like  a  360/67  or  a  Sigma  7«   Similarly,  a  failure  to  specially 
treat  other  machine  dependent  features  such  as  bulk  core,  head  per  track 
disks,  hypertape  drives,  etc.  would  lead  sometimes  to  large  inefficiencies. 
However,  OSL  did  assure  the  transportability  of  an  entire  operating  sys- 
tem among  virtually  all  medium  and  large  scale  computers. 

Subsequent  work  by  the  author  lead  to  the  design  of  OSL/2.   OSL 
had  been  designed  to  provide  a  common,  machine  independent  systems  language  'j 
for  the  largest  possible  number  of  machines.   OSL/2  used  another  approach. 
OSL/2  would  be  machine  ignorant  in  its  design.   That  is,  OSL/2  would  be 
designed  to  easily  specify  well  structured  operating  system  concepts  and 
algorithms  independent  of  existing  machines .   Once  the  language  was  designed 
the  hardware  necessary  to  implement  the  language  concepts  would  be  examined. 
Finally,  the  appropriate  compromises  would  be  made  in  the  language  to  make 
it  practical. 

Several  goals  were  set  at  the  beginning  of  the  design  effort. 

1)  Since  the  heart  of  an  operating  system  is  its  queues  and  tables, 
the  language  must  allow  the  specification  and  manipulation  of  arbi- 
trarily structured  queues  and  tables  as  if  they  were  primitive  data 
items  in  the  language . 

2)  The  language  should  provide  facilities  for  the  control  and  synchroni- 
zation of  multiple  processes. 

3)  The  specification  of  hierarchically  structured  or  layered  systems  must 
be  straightforward. 
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h)      It  must  "be  easy  to  insert  and  delete  code  to  measure  the  performance 

of  a  system  coded  in  OSL/2. 
5)   OSL/2  should  be  both  an  operating  system  language  and  an  adequate  job 
control  language.   The  task  of  an  operating  system  is  to  sequence  or 
control  one  or  more  processes  and  to  allocate  resources  to  these 
processes.   Similarly  a  job  control  language  must  specify  the 
sequencing  or  control  of  one  or  more  processes  and  specify  the 
resources  required  by  each  process.   Since  these  tasks  are  so  similar, 
one  language  should  handle  both  tasks .   These  five  goals  were  met  by 
the  process  control  concepts  and  the  generalized  data  access  techni- 
ques. 

A  process  in  OSL/2  is  a  program  or  procedure  that  may  execute 
concurrently  and  asynchronously  with  any  other  process.   For  example,  a 
separately  running  compiler  is  a  process.   It  is  possible  to  split  the 
compiler  into  a  scanner  and  a  parser  which  each  run  simultaneously.   The 
scanner  might  process  the  input  stream  to  find  all  special  words  and  identi- 
fiers and  enter  these  in  tables  for  the  parser  to  use.   The  parser  communi- 
cates with  the  scanner  to  get  the  next  identifier,  special  word,  or  other 
symbol  the  scanner  has  processed.   In  this  case  the  compiler,  a  process 
which  includes  the  parser,  would  initiate  the  scanning  procedure  as  a  second 
process.   The  result  is  one  program  with  two  concurrent  processes. 

The  process  management  facilities  of  OSL/2  allow  one  process  to 
create  and,  optionally,  monitor  new  processes.   If  a  process  initiates  a 
second  process  which  the  first  process  will  monitor,  then  the  first  process 
becomes  the  operating  system  for  the  second  process.   The  first  process 
may  define  new  primitives  for  the  second  process  to  use  or  may  even  redefine 


existing  primitives  for  the  second  process.   For  example,  a  statistical 
system  might  create  a  new  primitive  that  performs  correlation  and  redefine 
the  storage  allocation  primitive  for  those  processes  that  will  be  monitored 
by  it. 

Each  time  a  process  creates  a  second  process  which  it  monitors, 
a  new  level  or  layer  is  added  to  the  system.   Communication  between  layers 
is  through  the  primitive  procedures.   A  primitive  action  may  be  frequently 
redefined  in  new  layers.   It  is  also  possible  to  redefine  a  primitive  within 
one  layer.   This  will  be  described  in  detail  later. 

A  process  may  spin  off  one  or  more  processes  as  asynchronously 
running  procedures.   (For  example,  consider  the  previous  compiler  example 
or  the  ILLIAC  IV  operating  system  [12,  13]  which  has  about  a  dozen  of  these 
processes — one  for  each  operating  system  task.)  When  these  processes 
must  cooperate  with  each  other,  they  synchronize  their  operations  through 
the  use  of  P  and  V  operators  on  semaphores.   These  operators  were  defined 
and  analyzed  by  Dijkstra  [l^+]  and  Habermann  [15]  •   P  and  V  operators,  which 
will  be  discussed  later,  provide  a  powerful  process  synchronization  facility 
P  and  V  operators  are  truly  primitive  in  the  sense  that  they  are  simple 
to  implement  in  hardware  or  software  and  they  provide  a  base  from  which 
more  complex  process  communication  techniques  can  be  constructed. 

The  process  statements  provide  system  layering  and  process 
synchronization  facilities.   Furthermore,  the  ability  to  initiate  processes 
and  declare  data  (e.g.  files)  at  any  level,  allows  OSL/2  to  serve  as  an 
extremely  powerful  job  control  language. 

Through  the  use  of  the  generalized  data  access  facility  the 
programmer  may  define  new  data  types  such  as  FIFO  queues,  priority  queues, 


and  special  tables.   Each  time  such  a  data  type  is  accessed,  for  example 
in  an  expression  or  on  the  right  hand  side  of  an  assignment  statement,  a 
fetch  operation  is  performed.   Each  time  an  attempt  is  made  to  store  a  new 
value  in  a  data  item  of  this  type,  for  example  on  the  left  hand  side  of 
an  assignment  statement,  a  store  operation  is  performed.   The  semantics 
of  fetch  and  store  operations  and  special  functions  related  to  the  new 
data  type,  are  defined  in  the  access  definition. 

The  coder  can  define  fetch  and  store  operations  for  queues  or 
tables  that  perform  very  complex  manipulations  of  these  data  types.   There- 
after, a  complex  process  such  as  inserting  a  new  element  into  a  queue  or 
into  a  table  may  be  written  as  a  simple  assignment  statement.   If,  at  a 
later  time,  changes  are  to  be  made  to  the  queuing  algorithms,  these  changes 
are  made  only  in  the  definition  and  the  rest  of  the  code  is  unaltered. 
If  desired,  a  coder  can  add  instrumentation  in  the  access  definition.   Since 
all  manipulations  of  an  access  type  are  defined  in  the  access  definition, 
the  definition  provides  a  single  spot  at  which  every  fetch,  store  and 
special  function  call  can  be  recorded. 

Thus  the  data  access  facility  allows  a  programmer  to  define 
arbitrarily  complex  data  structures  that  may  then  be  accessed  as  primitive 
data  items  in  the  language.   Furthermore,  since  this  feature  is  used  to 
implement  the  queues  and  tables  that  define  the  state  of  the  system,  they 
provide  a  central  place  where  measurement  of  the  system  can  be  readily 
performed. 

It  should  be  stressed  that  OSL/2  is  not  an  extensible  language 
in  the  general  sense  that  GPL  [l6,  IT]  and  ALGOL  68  [l8,  19]  are.  OSL/2 
does  allow  the  coder  to  specify  a  class  of  new  data  types  and  the  semantic 


interpretation  of  fetches  and  stores  on  that  data  type.   Unlike  most 
extensible  languages,  OSL/2  does  not  allow  binary  operators  to  "be  created 
or  redefined.   This  restriction  makes  the  language  easier  to  implement 
yet  still  provides  those  data  extension  features  both  necessary  and 
desirable  for  systems  programming. 

The  author's  continual  frustration  with  the  lack  of  good  symbol 
manipulation  facilities  in  existing  algorithmic  languages  led  him  to 
adopt  the  pattern  matching  concepts  of  SNOBOL.   Many  other  "nice"  features 
like  patterns  and  case  expressions  have  been  added  to  the  language  for 
the  convenience  of  the  coder.   Most  of  these  facilities  are  frills  that 
are  not  essential  to  the  thesis.  They  are  included  primarily  to  document 
the  fact  that  such  formerly  diverse  constructs  as  SNOBOL  patterns,  bit 
manipulation,  and  asynchronous  processes  can  all  exist  harmoniously  within 
a  single,  block  structured,  algorithmic  language  without  the  specification 
of  scores  of  new  primitives  and  exception  conditions.   Most  of  these 
facilities  were  added  to  basic  ALGOL  60  by  extending  the  primitive  data 
base  to  include  structures,  strings,  patterns  and  pointers  or  by  making 
logical  extensions  to  existing  statements,  such  as  the  iteration  statement. 

Unfortunately,  systems  programmers  tend  to  be  very  poor  docu- 
menters  of  their  work.   Unless  they  are  made  to  write  program  logic  manuals 
and  flowcharts  before  they  write  the  code,  they  will  most  likely  never 
provide  these  flowcharts  or  logic  manuals. 

Therefore,  many  of  the  features  in  the  language  are  included  to 
aid  in  the  structuring  and  documentation  of  a  piece  of  code.   For  example, 
the  lack  of  a  GO  TO  statement  not  only  forces  clean  program  structure  but 
also  allows  a  compiler  to  perform  better  global  optimizations.   Since 


labels  must  appear  before  and  after  a  labelled  statement  and  must  be 
used  by  the  ESCAPE  statement,  a  minimal  level  of  documentation  is  auto- 
matically forced  on  the  coder. 

The  main  features  of  the  language  which  are  essential  to  the 
operating  system  codes  are  the  generalized  data  access  facility  which 
enhances  system  measurement  and  queue  manipulation  and  the  process  facility 
which  allows  asynchronous  processes  to  be  controlled,  synchronized,  and 
layered. 

The  other  features  of  OSL/2  are  not  essential  but  desirable. 
These  extra  features  make  the  description  of  algorithmic  processes  more 
pleasant  for  the  coder  and  frequently  make  a  piece  of  code  more  readable. 
Futhermore ,  these  features  not  only  help  the  systems  programmer  structure 
and  compress  very  complex  codes,  they  also  help  him  clarify  his  thoughts 
and  thus  properly  design  and  structure  these  arbitrarily  complex  systems. 
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Chapter  2 
An  Introduction  to  the  OSL/2  Syntax  and  Semantics 

The  heart  of  any  operating  system  is  its  resource  scheduling 
and  allocation  facilities.   Therefore,  the  highest  design  priority  is 
placed  on  the  ability  of  the  language  to  properly  specify  scheduling 
algorithms.   Secondary  to  this  consideration  but  still  of  great  import- 
ance is  the  ease  with  which  the  programmer  can  use  the  language. 

Questions  concerning  paging,  file  organization,  linking,  and 
addressing  are  not  considered  in  the  language. 

This  chapter  is  broken  into  two  main  sections  -  a  description 
of  the  data  types  and  expressions  allowed  in  the  language  followed  by 
a  description  of  the  statements  and  process  control  facilities. 

The  primitive  data  types  allowed  in  the  language  are  integers, 
Booleans ,  strings,  patterns,  and  pointers.   Integers  are  used  for  arith- 
metic and  indexing.   Booleans  provide  logical  manipulation  capabilities 
and  are  used  extensively  when  controlling  program  execution.   Strings  of 
various  character  sizes  and  lengths  are  used  with  SNOBOL-like  patterns 
to  scan  text.   Pointers  are  heavily  used  to  build  and  process  list  data 
or  data  structured  as  an  arbitrary  network. 

These  five  primitive  data  types  are  used  to  form  the  three 
composite  data  types:   arrays,  structures,  and  generalized  access  data. 
OSL/2  arrays  are  identical  to  Algol  arrays.   Structures  allow  the 
specification  of  tree  structured  data  similar  to  PL/1  structures. 
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Generalized  access  data  are  built  up  from  the  primitive  data  types 
and  the  other  composite  data  types.   Special  purpose  procedures  are 
•written  to  describe  how  this  data  will  be  manipulated.   The  combination 
of  the  data  specifications  and  the  manipulation  procedures  allow  one 
to  declare  and  manipulate  complex  queues  and  tables  and  to  perform 
complex  I/O  and  data  retrievals  as  if  they  were  primitive  constructs 
in  the  language . 

An  OSL/2  program  is  composed  of  one  or  more  nested  or  sequential 
statement  blocks.   These  blocks  are  identical  to  ALGOL  60  blocks. 
Within  the  blocks,  compound,  iterative,  conditional,  and  assignment 
statements  are  allowed.   In  addition,  procedure  calls  and  case  statements 
are  provided.   The  case  statement  allows  one  to  index  into  a  list  of 
statements  and  execute  only  one  of  them  depending  upon  which  index  value 
was  used. 

OSL/2  does  not  have  a  GO  TO  statement.   The  GO  TO  is  replaced 
by  the  escape  statement.   An  escape  statement  allows  one  to  leave  the 
range  of  any  statement  he  is  in.   For  example,  he  could  leave  an  iteration 
loop,  or  the  block  that  contained  the  loop,  or  the  block  that  contained 
that  block,  etc.   However,  one  cannot  enter  another  statement  via  an 

escape  statement.   The  only  way  to  enter  a  statement  is  to  arrange  for 

I 

it  to  be  the  next  statement  in  the  program  sequence .   In  such  an  environ- 
ment, a  programmer  depends  heavily  upon  "infinite"  loops,  terminated  by 
executing  an  escape  statement,  to  replace  many  GO  TO  statements. 

In  OSL/2,  a  process  is  a  separately  running  program,  or  asyn- 
chronously running  procedure  attached  to  another  process.   Control 
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primitives  are  available  to  initiate,  stop,  and  restart  processes. 
Furthermore,  it  is  possible  to  declare  new  primitives  for  processes 
or  to  reroute  calls  on  standard  primitives  to  alternative  procedures 
declared  by  a  supervisory  process.   These  asynchronously  running 
processes  may  synchronize  their  actions  using  P  and  V  operators  on 
semaphores.   These  provide  a  very  convenient  lock-out  capability. 

This  brief,  global  introduction  to  the  language  facilities 
provides  the  perspective  for  the  detailed  description  that  follows. 
2.1.  The  Primitive  Data  Types 

There  are  five  primitive  OSL/2  data  types:   integers,  Booleans , 
strings,  patterns,  and  pointers. 
2.1.1.   Integer 

The  only  arithmetic  allowed  in  OSL/2  is  performed  on  the 
positive  and  negative  integers.   In  an  actual  implementation  of  OSL/2 
to  solve  more  than  just  scheduling  problems,  it  may  be  desirable  to 
include  real  numbers  or  even  complex  numbers  as  primitive  data.   Since 
these  are  generally  machine  dependent  and  extremely  rarely  used,  if 
ever,  in  operating  system  work,  they  are  not  included  in  the  OSL/2 
description. 

The  operations  that  may  be  performed  on  integers  include 
addition,  subtraction,  multiplication,  a  variety  of  divisions,  and 
exponentiation.   When  performing  division  on  integers,  one  may  produce 
a  rounded  or  truncated  answer.   He  may  further  truncate  up  or  down  in 
value.   Therefore,  division  operators  are  provided  to  describe  each  of 
these  operations. 
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2.1.2.   Boolean 

Booleans  are  single  valued  data  that  take  on  the  value  true 
or  false.   They  may  not  be  considered  to  be  multivalued  or  bit  strings 
as  they  are  in  most  languages .   String  data  and  string  operators  must 
be  used  to  perform  logical  operations  on  bit  strings. 

The  logical  functions  and,  or,  not,  exclusive  or,  equivalence, 
and  implication  are  allowed  on  Booleans.   In  the  evaluation  of  Boolean 
expressions  two  additional  special  purpose  operations  are  allowed: 
andif  and  or if .   The  use  of  these  operations  is  best  illustrated  with 
an  example. 

Assumed  that  operation  X  is  to  be  performed  if  the  Boolean 
variables  A,  B,  and  C  are  all  true.   An  OSL/2  program  to  do  this  would 
be  written  if  A  andif  B  andif  C  then  X  fi 

A  conditional  OSL/2  expression  or  statement  begins  with  an  if_  and  is 
terminated  by  a  fi.  Thus  i.f .  .fi_  is  actually  a  bracket  pair.   In  this 
and  all  following  examples  the  special  OSL/2  words  are  underlined  for 

illustrative  purposes  only.   In  the  language  itself,  words  like  if, 

I 

and,  etc.  are  reserved  words  and  may  not  be  used  for  purposes  other 

I 

than  indicating  specific  OSL/2  constructs.   In  the  above  example,  one 

need  not  test  the  variables  B  or  C  if  A  is  false.   The  andif  caused  the 

i 

evaluation  of  B  and  C  to  be  skipped  if  the  expression  is  already 
determined  to  be  false.   The  operator  orif  causes  a  similar  termination 
of  an  expression  or  subexpression  if  the  value  is  already  determined  to 
be  true.   These  operators  are  provided  for  efficiency  and  to  avoid 
unpleasant  side  effects.   For  example,  it  may  happen,  particularly  in 


operating  systems  codes,  that  the  quantity  B  may  not  exist  if  A  is  false. 
Thus  the  testing  of  B  might  cause  an  error.   The  way  around  this  situation 
in  conventional  languages  has  been  to  write  nested  conditional  state- 
ments ,  e.g., 

if  A  then  if  B  then  X  fi  f i 
In  OSL  this  is  written  as, 

if  A  andif  B  then  X  fi 
2.1.3.   String 

String  data  has  a  character  size  and  a  length.   The  character 
size  is  measured  in  bits  and  the  length  in  characters.   Strings  may  be 
of  a  fixed  length  or  may  be  variable  within  some  maximum  length. 

A  string  may  be  bit-wise  anded  (sand) ,  ored  (sor) ,  exclusive- 
ored  (sxor) ,  or  complemented  (snot) .  A  string  may  also  be  tested  for  a 
pattern  match  or  for  equality  or  inequality  with  some  other  string. 

For  example,  the  following  Boolean  expression  is  true  if  the 
string  S  contains  an  "A",  "BM,  or  "C". 

S  {  "A"  |  "B"  |  "C"  } 
The  pattern  is  contained  within  the  braces.   The  following  statement 
tests  if  the  string  A  is  not  equal  to  the  string  B  and,  if  not,  conca- 
tenates it  to  the  string  X. 

if  A  oi  =  B  then  X  ■+■   X  &  A  f  1 
String  inequality  is  judged  by  the  bit  representations  of 
each  character.   No  collating  sequences  are  assumed  by  OSL/2.   However, 
one  may  specify  standard  character  sets  such  as  ASCII  and  EBCDIC  when 
writing  string  constants.   For  example,  the  string  constant  E"XYZ"  is 
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a  three  character  string.   Each  character  is  eight  bits  long  and  contains 
the  EBCDIC  representation  of  respectively  "X" ,  "Y" ,  and  "Z". 

Substrings  may  be  specified  by  following  a  string  expression 
with  a  field. 
Examples : 

S.[0:10j 

(S  «-  S&B).[n:k+2] 
The  first  example  specifies  the  first  ten  characters  of  S.   The  second 
example  specifies  k+2  characters  beginning  at  character  n  in  the  new 
value  of  S.   Characters  are  numbered  left  to  right  beginning  at  zero. 
|.l. k.      Patterns 

Patterns  are  used  in  pattern  matching  statements.  Pattern 
matching  statements  are  also  Boolean  expressions.  The  OSL/2  pattern 
is  based  on  the  SNOBOL  k   pattern. 

All  patterns  are  enclosed  within  patterns  to  any  depth. 
Patterns  may  be  assigned  to  pattern  variables  and  saved  for  later  use 
or  passed  to  procedures.   Patterns  may  also  specify  that  intermediate 
results  in  a  pattern  match  should  be  assigned  to  some  string  variable. 

The  basic  form  of  a  pattern  expression  is 

{*!  I  a2  |  ...  I   An} 

where  each  A  is   an   alternative.      Patterns   are  matched  from  left   to  right. 

The  result   of  the  match  is  true   if  one   alternative  matches   and  false   if 

no  alternative  matches.      The   evaluation   of  a  pattern  expression  stops   at 

the   first  match. 

Each   alternative  has  the   general  form 

S  «•  Pn&P0&P0&.  ..&P 
12      3  n 
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■where  S  is  an  optional  string  variable  and  P  .  .  .P  are  pattern  primaries. 
In  order  to  match  this  alternative,  a  string  must  contain  the  pattern  P 
followed  immediately  by  the  pattern  P  ,  followed  immediately  by  the 
pattern  P  ,  etc.   If  a  successful  match  is  made,  a  copy  of  the  part  of 
the  string  which  matches  the  concatenated  patterns  is  placed  in  S. 

Since  a  pattern  variable  may  have  as  its  value  an  embedded  assign- 
ment to  a  string  variable,  one  must  be  sure  that  the  string  variable 
exists  so  that  the  embedded  string  assignment  is  always  legal.  Therefore 
pattern  variables  or  string  variables  may  not  appear  in  a  pattern  expression 
on  the  right  hand  side  of  a  pattern  assignment  if  the  pattern  variable 
on  the  left  is  global  to  them.   Furthermore,  a  formal  parameter  pattern    J 
variable  may  not  be  assigned  a  pattern  which  contains  pattern  or  string 
variables.   In  the  example 

Patt  ■<-  {"A"  |  Sti^  «-  "B"  &  Pattg  |  {Str2  |  Patt  }} 
the  following  must  be  true: 

1)  Patt  ,  Patt  ,  Str  ,  and  Strp  must  be  declared  global  to 
Patt  or  they  must  be  declared  in  the  same  block  as  Patt  . 

2)  Patt  is  not  a  formal  parameter. 

Pattern  primaries  are  string  constants,  string  variables, 
pattern  variables,  pattern  functions,  and  pattern  expressions. 

Refer  to  pattern  matching  statements  for  more  pattern  examples . 
2.1.5-   Pointers 

Pointers  specify  or  "point  to"  any  OSL/2  data.   If  P  is  a 
pointer  and  X  some  data,  then  P.X.  is  the  X  pointed  to  by  P.   This  is 
of  special  use  when  list  processing.   The  OSL/2  coder  will  normally 
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have  only  one  identifier  used  to  denote  a  list  element.   The  pointer  then 
denotes  which  list  item  is  being  specified.   Pointers  may  point  to  node, 
own,  or  normal  data  although  they  are  primarily  intended  for  use  with 
node  data  (node  data  may  be  explicitly  allocated  and  deallocated  by 
the  programmer) . 

Pointers  may  point  to  other  pointers.   For  example,  "P1.P2,X" 
is  the  X  pointed  to  by  the  P2  which  is  pointed  to  by  PI. 

Pointers  may  have  a  null  value  or  may  be  assigned  values  via 
allocate  statements  and  pointer  functions.   P  ■*-  ptr(N)  creates  a  pointer 
to  the  variable  N  and  assigns  it  to  P. 
2.1.6.   Conditional  and  Case  Expressions 

In  the  previous  five  data  types,  the  following  primaries  are 
allowed  in  all  expressions. 

if  Boolean  expression  then  expression  else  expression^  fi 


and 


case  integer  expression  of 

expression-, 

expression  , 

expression  esac 
n 

In  the  above  constructs,  expression,  is  an  integer,  Boolean,  string, 
pattern,  or  pointer  expression. 

In  the  first  construct,  the  if  primary,  the  Boolean  expression 
is  evaluated,  if  it  is  true,  then  the  value  of  the  primary  is  expression  . 
If  it  is  false,  the  value  of  the  primary  is  expression^. 
Examples  : 

if  x=0  then  a  else  b  fi 

n  ■*■   if  n=0  then  h   else  n+1  fi 


The  case  primary  has  as  its  value  expression,  where  i  is  the 
value  of  the  integer  expression.   If  the  integer  expression  is  less 
than  zero  or  greater  than  n  then  the  default  expression  is  the  value 
of  the  primary. 
2.2.   Composite  Data  Types 

There  are  three  composite  data  types,  arrays,  structures, 
and  generalized  access  data. 

OSL/2  allows  any  of  the  primitive  or  composite  data  types 
to  be  subscripted.   The  subscript  list  follows  the  data  identifier  and 
is  enclosed  in  brackets. 
Examples : 

A[0] 

B [10, 23*2+7] 

C23[if  X_is_even  then  X  else  2*X  fi] 
Data  structures,  similar  to  the  structures  allowed  in  PL/1, 
are  used  in  OSL/2.   An  example  of  a  list  element  declaration  is  given 
below. 

node  structure  list_element 

( structure  data  (integer  age,  weight,  height; 

Boolean  sex_is_male) ; 
pointer  forward,  backward) 
Note  that  structures  may  be  nested  within  structures.   Also 
note  the  use  of  an  underscore  to  make  identifiers  more  readable.   The 
underscore  is  a  null  character.   Thus  the  identifiers  "a_b_c"  and  "abc" 
are  the  same  identifier. 
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The  data  within  a  structure  must   always  be   completely 
addressed  by  all  identifiers   in  the  hierarchy  above  the  desired  data. 
The  list  of  identifiers   is   in  hierarchial  order  and  is   separated  by 
".".      For  example,   the  pointer   forward  is   addressed  as 

list_element . forward 
and  the  integer  weight  is   addressed  as 

list_element . data. weight 
"list_element .weight" ,    "weight",    "data. weight" ,    and  "forward"  would  not 
be  legal  syntax  in   any  construct. 

If  desired,  for  example  when  passing  data  to  a  procedure,  one 
may  specify  a  whole  structure  or  substructure  by  addressing  down  to  the 
level   desired.      For  example,    "list_element"   or   "list_element .data". 

The   generalized  data  access   facilities   allow  the  programmer  to 
specify  the   action  that  is  to  be  taken  when  data  is   fetched  from  (variable 
appears   on  the  right  hand  side   of  an   assignment   statement)    or  stored  into 
(variable   appears   on  the  left  hand  side   of  an   assignment   statement)   the 
variable.      In   addition,   numerous   side   actions  may  be   specified.      This   facil- 
ity is   of  greatest  use  when  manipulating  tables,   queues,    and  stacks  which 
have   complex  data  structures   and  access   algorithms.      In   access   declarations 
and  definitions ,   the  key  words   access ,    stack ,   table ,    and  queue  may  all  be 
used  interchangeably. 

For  a  simple  example   consider  a  queue   consisting  of  integers 
which   are   accessed  in   a  first   in   first   out  manner  such  that   storing  into  the 
queue   causes   a  new  entry  to  be  made   and  fetching  causes   the   oldest   entry  to 
be  deleted. 

Two  constructs   are   required:      the  definition  of  the   data  type  and 
a  declaration  of  an  identifier  which   is  this  type.      First  the   definition: 
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1 .  queue  f i  f o ; 

2.  begin 

3.  integer  (number_of_entries ,  oldest_entry,  newest_entry)  ««-  0, 
h.  entry_list[0:99]; 

5 .  integer  f i f o  procedure  f et ch ; 

6.  begin 

7.  fetch  «-  entry_list[oldest_entry  *■  (*+l)mod  100]; 

8.  number_of_entries  «*  *-l 
9-                 end  fetch; 

10.  fifo  procedure   store    (X) ;   integer  X; 

11.  begin 

12.  entry_list[newest_entry  ■*•  (*+l)mod  100]  «-  X; 
13  •          number_of_entries  *•  *+l 

Ik.  end  store; 

15.   end 

A  line  by  line  description  of  this  definition  will  provide 
insight  into  many  0SL/2  constructs. 

1)  On  this  line  the  new  access  type  "fifo"  is  declared.  Within  the  scope 
of  this  definition,  the  identifier  "fifo"  will  be  used  to  declare  "fifo" 
queues . 

2)  All  the  information  concerning  an  access  type  is  local  to  the  access 
variable.   This  prevents  tampering  with  access  variables  through  any 
means  other  than  the  access  procedures  declared  in  the  access  definition. 
Thus  the  definition  block  is  a  true  block  enclosed  in  a  begin  and  end 
(lines  2  and  15)  that  restricts  the  use  of  internal  access  variables. 
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The  access  procedures  declared  within  the  definition  are  pseudo  local 
to  the  type  fifo.   That  is,  it  is  possihle  to  write  the  OSL/2  code 
"length  (X)"  in  one  place  and  have  it  represent  a  call  to  one  of  many 
procedures  called  length  depending  on  the  declaration  of  "X".   "length(x)" 
might  refer  to  a  standard  procedure  call  with  one  actual  parameter. 
If  "X"  is  an  access  variable  and  an  access  procedure,  "length",  is  declared 
for  that  access  type,  then  the  appropriate  access  procedure  will  be 
invoked.   If  several  access  types  are  available  each  with  its  own  proce- 
dure named  "length",  the  particular  procedure  "length"  declared  to  be 
part  of  the  access  type  of  the  access  variable  will  be  invoked. 
3)  Three  integers  are  declared  and  are  initialized  to  zero. 
k)     An  integer  array  indexed  from  zero  to  99  is  declared. 

5)  This  line  declares  the  fetch  procedure.   The  fetch  procedure  will 
automatically  be  invoked  whenever  a  fetch  is  made  on  a  variable  declared 
to  be  fifo.   The  result  will  be  an  integer. 

6)  The  fifo  procedure  fetch  has  a  compound  statement  as  a  body.   Thus, 
it  is  enclosed  in  a  begin  end  pair. 

7)  The  return  value  of  the  function  "fetch"  is  set  here.   The  value 
returned  is  in  the  array  "entry_list".   The  index  of  "entry_list"  is 
an  imbedded  integer  assignment  statement.   The  index  will  be  the  value 
of  "oldest_entry"  after  the  assignment  is  performed.   Notice  the  use  of 
the  asterisk  in  the  right  hand  side  of  the  assignment  statement.   This 
is  a  shorthand  for  the  variable  used  on  the  left  hand  side  of  the 

[    assignment  statement.   Only  one  such  asterisk  is  allowed  and  it  must 
I  "be  the  first  integer  quantity  (primary)  encountered  on  the  right  hand 
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side.   Thus 

A  «•  *  +  1 

is  the  same  as 

A  +  A  +  1 
but 

A  ■*■  1  +  *  is  not  allowed.   Note  that  this  expression  increments  "oldest_ 
entry"  and  uses  the  mod  operator  to  map  its  values  cyclically  over  the 
range  zero  to  99- 

8)  This  line  is  unnecessary  now  but  will  be  used  later.   It  maintains 

a  count  of  the  number  of  entries  currently  in  the  fifo  queue.  The  use  of 
the  asterisk  convention  is  illustrated  here  to  decrement  the  number  of 
entries  in  the  queue. 

9)  This  end  closes  the  fetch  procedure  compound  statement.  Note  that 
comments  consisting  of  letters  and  digits  are  allowed  following  an 
end. 

10 )  The  store  procedure  is  declared  on  this  line.  A  store  procedure  is 
automatically  invoked  when  an  assignment  is  made  to  an  access  variable. 
Store  procedures  have  one  parameter  which  is  the  type  of  the  data  which 
may  be  stored  into  the  access  variable.   The  type  of  data  fetched  from 
and  the  type  of  data  stored  into  an  access  variable  need  not  be  the  same 
type.   The  identifiers  "fetch"  and  "store"  indicate  that  the  fifo  proce- 
dures with  those  names  have  special  restrictions  as  to  their  automatic 
invocation  and  number  of  parameters.   In  this  case  the  data  stored  into 
the  fifo  access  variable  is  integer  data. 

11)  This  begin  starts  the  compound  statement  which  is  the  body  of  the 
procedure  "store". 
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12)  In  this  case,  an  entry  will  "be  made  in  "entry_list" .   Otherwise, 
this  is  similar  to  line  7.   Note  that,  as  in  line  7,  an  embedded  assign- 
ment is  used  to  compute  the  subscript  of  "entry_list" .   This  position 
in  the  array  receives  the  value  to  be  stored. 

13)  In  a  manner  similar  to  line  8,  the  "number_of_entries"  variable  is 
incremented. 

ik)      As  in  line  9,  this  line  terminates  the  procedure  store  and  also 

contains  a  comment. 

15)   This  line  terminates  the  fifo  definition. 

In  order  to  use  fifo  variables,  one  must  declare  them.   For 
example : 

fifo  queue  X,  Y,  Z 
declares  three  fifo  variables  X,  Y,  and  Z. 
Some  examples  of  use  follow: 

X  ■*■  0  puts  a  zero  on  the  tail  of  X. 

Y  ■*■  Y  removes  the  head  of  Y  and  puts  it 

at  the  tail  of  Y. 

Y  ■*•  Y  ■*-  Y  ■<-  1     puts  3  ones  into  Y. 

Y  «-  Z  •*■   X         removes  the  head  of  X  and  puts  it  on 

the  tail  of  Z  and  Y. 

Y  +  Y  +  I  +  Y     is  equivalent  to  Y  «-  ( Y  «-  (Y  -«-  Y) ) . 
Note  that  subscripts  and  all  other  explicitly  stated  operations  in  an 
assignment  statement  are  evaluated  from  left  to  right.   However,  assign- 
ments are  made  right  to  left.   Thus  the  invocations  of  access  store 
procedures,  which  occur  at  assignment  time,  are  right  to  left. 
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Now  that  the  "basic  access  data  type  has  been  demonstrated, 
assume  that  the  coder  wishes  to  be  able  to  add  a  facility  to  his  fifo 
queues  to  enable  him  to  find  the  length  of  the  queue .  The  following 
access  procedure  declaration  may  then  be  added  to  the  definition  between 
lines  h   and  5,  9  and  10,  or  ik   and  15. 

integer  fifo  procedure  QSIZE; 
QSIZE  ■*■   number_of_entries ; 
With  this  addition,  the  coder  can  write  QSIZE(X)  and  know  the  number  of 
entries  in  X.  Note  that  the  parameter  "X"  ("X"  is  a  fifo  queue  variable)  doe, 
not  appear  in  the  declaration  of  "QSIZE".  All  access  procedures  are  called 
with  one  more  parameter  than  is  declared.  By  convention,  this  additional 
parameter  is  the  first  parameter  and  indicates  which  access  variable  is  to 
be  operated  upon. 

Some  additional  features  of  the  access  facility  are  demonstrated 
by  this  example:  ;j 

1.  stack  simple (S)  ;  integer  S  •*■   0; 

2.  begin 

3.  integer  number  ■+■  0,  default  value  ■*■  S; 

■ 
k.  pointer  head  ■*■  null; 

5.  node  structure  entry( 

6.  integer  item; 

7.  pointer  next  <-  head); 

8.  integer  simple  procedure  fetch; 

9.  begin 

10.  pointer  temp; 



11.  if  head  =  null 

12.  then  leave   fetch   ( de f ault_value ) 

13.  else 
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lU. 

fetch  •*■  head. entry. item; 

15. 

temp  -*-  head; 

16. 

head  •*-   head. ent ry. next ; 

IT- 

release  (temp. entry) 

18. 

fi 

19. 

end  fetch; 

20. 

simple  procedure  store (X) ;  integer  X; 

21. 

"begin 

22. 

head  ■*-  alloc  ate  ( entry) ; 

23. 

head. entry. item  ■*•  X 

2U. 

end  store 

25. 

end 

1 

26. 

simple  stack  X,  Y(A*B) ; 

27. 

X 

■*■ 

l; 

28. 

Y 

■t- 

X  +   A+B; 

29. 

X 

■<- 

X; 

30. 

X 

■«- 

X  «-  X; 

Note  that  in  line  1  the  access  type  "simple"  has  a  formal  para- 
meter which  is  used  on  lines  3  and  12  to  return  a  default  value  if  the 
simple  stack  is  empty. 

Note  also  that  on  line  5  a  node  structure  is  declared  to  hold 
the  entries  in  the  stack.   Node  structures,  like  PL/l  controlled  storage, 
may  he  allocated  and  deallocated  by  explicit  programmer  command  (cf.  the 
allocate  and  release  statements  on  lines  IT  and  22) . 

On  line  7  of  this  definition,  the  substructure  pointer  "next" 
will  be  initialized  to  the  value  of  "head"  each  time  the  structure  entry 
is  allocated. 


26 


Lines  12  and  lU  illustrate  the  two  ways  to  return  values  for 
a  function.   One  line  12,  the  escape  statement  "leave  fetch  ( def ault_value ) " 
sets  the  function  value  and  exits.   On  line  lkt   the  function  value 
is  set  hut  computation  continues. 

When  specifying  a  node  variable,  if  a  pointer  to  the  variable 
is  not  given,  the  last  allocated  instance  of  that  variable  is  assumed. 
Thus  on  lines  lk,   l6  and  23,  the  phrase  "head"  need  not  appear  before  the 
phrase  "entry". 

On  line  26,  the  simple  stacks  "X"  and  "Y"  with  respective  defaults 
of  zero  and  A*B  are  declared.   In  the  definition  of  simple  stacks  on 
line  1,  the  parameter  "S"  was  given  a  value  of  zero  which  was  to  be  used 
if  the  parameter  was  not  supplied  at  declaration  time.  Since  the  para- 
meter was  omitted  in  the  declaration  of  "X",  zero  was  assumed. 

One  might  add  the  following  access  procedure  and  internal 
procedure  between  lines  19  and  20. 

19.1       integer  procedure  glorp(n,p);  value  n,p;  integer  n,  pointer  p; 
19-2       begin 

19.3  if.  p  =  null  then  leave  glorp  ( de f ault_value ) 

19.^  else  if  n=0  then  leave  glorp  (p. entry .item) 

19.5  else  leave  glorp  (glorp  (n-1,  p . entry . next ) )  fi_ 

19.6  fi 
19. T       end  glorp; 

19.8       integer  simple  procedure  scan(n);  value  n; 
19  •  9  integer  n  -<-  0 ; 

19.10  scan  ■*■   glorp(n,head) 

This  declares  the  procedure  "scan"  which  may  be  used  to  non 
destructively  access  any  item  in  the  stack.   Note  that  procedure  "scan" 
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has  an  optional  parameter  "n"  which  is  assumed  to  be  zero,  the  top  of 
the  stack,  if  it  is  not  supplied  by  the  coder  (lines  19.8  and  19. 9) • 

The  recursive  procedure  "glorp"  is  local  to  the  "simple"  stack 
definition  block  and  may  only  be  used  by  the  procedures  within  the 
definition  block.   The  procedure  glorp  does  the  actual  search  through  the 
stack  for  procedure  "scan". 

"scan(X)"  and  "scan(X,0)"  will  both  return  a  value  equal  to  the 
top  element  on  the  stack  X.   "scan(X,n)"  will  return  element  "n"  or  the 
default  value  (zero  in  this  case)  of  the  stack  if  the  stack  does  not 
contain  an  nth  entry. 

Access  definitions  and  procedures  may  redefine  the  interpre- 
tation of  subscripts .   One  may  follow  the  formal  parameters  of  an  access 
definition  with  array  parameters.   The  parameters  that  appear  in  the  array 
part  need  not  be  arithmetic  -  they  are  handled  the  same  as  any  formal  parameter, 
Example 

access  formatted_file  (A,B,C) [XL  :X2,X3,X^ :X5:X6  ] ; 
integer  A, B,C, (XL, X2,X3,Xl4,X5,X6)  «-  0  ; 

The  array  parameters  in  the  access  definition  define  the  interpretation 
and  format  of  the  array  part  of  an  access  declaration.   The  array  para- 
meters may  be  declared  and  defaulted  in  the  same  manner  that  other  formal 
parameters  are.   The  array  part  parameters  are  then  input  in  the  same 
fashion  as  in  any  other  declaration. 
Example 

formatted_file  acces s  ( Fl ,  F2 )  (  30 ,  30 ,150 ) , 

F3( 30 ,150 ,150) [0:10], 

(Fl+,F5,F6)( 30, 30, 150)  [0:2,13,10:2:20], 

FA( 30,150,150) 
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Subscripted  access  variables  may  appear  in  OSL/2  code.   In 
each  case  the  appropriate  fetch,  store,  or  special  access  function  must 
have  a  subscript  specification. 
Example 

definition: 

integer  A[0:N,0:N]; 
access  transpose 
begin 

integer  transpose  procedure  fetch  [B,C];  integer  B,C; 
fetch  +   A[C,B]; 

transpose  procedure  store  (D)[B,C];  integer  B,C,D; 
A[C,B]  *  D; 
end 
declaration: 

transpose  X 
use  : 

X[N,M]  «-  A[N,M] 
The  above  access  example  produces  a  variable  X  which,  when  used  as  an 
array,  produces  the  transpose  of  the  matrix  A. 

The  array  facilities  in  access  declarations  and  definitions 
allow  one  to  interpret  an  array  subscript  as  a  particular  queue  or  table 
entry  or  to  imply  virtually  any  other  interpretation.   Since  the  number 
of  subscripts  in  the  declaration  and  the  format  of  the  definition  need 
not  agree  and  can  be  defaulted,  a  maximum  amount  of  freedom  is  allowed. 
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For  example,  one  could  declare  a  special  array  that  took  advantage 
of  a  subscript  declaration  with  this  form:   "A:B:C"  where  an  array  would 
he  created  with  indices  from  "A"  to  "B"  in  steps  of  "C". 

A  fifo  fetch  procedure  with  the  following  heading  could  he 
written. 

integer  fifo  procedure  fetch  [N] ;  integer  N  -* — 1; 

One  could  use  the  array  subscript  to  specify  a  destructive  or  non-destructive 

fetch  from  the  queue  if  N  were  -1  (no  subscript)  then  a  destructive  fetch 

th 
of  the  oldest  element  would  proceed.   Otherwise,  the  N   element  would  be 

non-destructively  fetched. 

In  general  the  access  procedure  heading 

Pr(A  ,A  A  ...A  )[N  ,N   . . . ,N  ■ ] 
d.     3         n   .  d  m 

would  be  called  as 

Pr(  Vr[Nl5N2, . . .  .Nj  .A^Ag, . .  .  ,An) 
where  defaults  may  arbitrarily  trim  the  actual  number  of  N's  or  A's  that 
appear  and  Vr  is  a  particular  access  variable  name.   The  actual  parameters, 
both  N's  and  A's,  may  be  integers,  booleans,  strings,  etc.   In  particular, 
the  subscripts  (N's)  need  not  be  arithmetic  and  need  not  be  interpreted 
as  normal  subscripts. 

Access  variables  can  be  declared  to  make  complicated  table 
entries,  perform  formatted  i nput/ output ,  and  monitor  variables. 

Perhaps  one  of  the  greatest  advantages  of  the  access  mechanism 

is  the  ease  with  which  the  coder  can  use  it  to  measure  a  system.   If  one 

uses  the  access  mechanism  to  perform  all  stack,  queue,  and  input /output 
I 
:  operations,  a  centralized  place  is  provided  to  insert  instrumentation. 

I 

|  One  merely  adds  to  the  access  definition  that  code  which. is  desired.   It 

iis  then  easy  to  keep  statistics  on  virtually  every  access  variable. 
I 
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Furthermore,  it  is  easy  to  delete  any  measurement  code  once  it  has  served 
its  purpose. 
2.3.   Statements 

2.3.1.   Blocks,  Compound  Statements  and  Conditional  Statements  Are 
Recursively  Defined. 

That  is,  a  single  statement  may  contain  one  or  more  statements 
embedded  within  it.   Each  of  these  embedded  statements  may  in  turn  contain 
further  embedded  statements,  etc. 

This  happens  in  one  of  two  ways.   First,  assignment  statement 
may  be  embedded  in  expressions  which  are  themselves  parts  of  statement. 
Second,  many  statements  may  be  grouped  together  within  a  block,  compound 
statement,  case  statement,  or  conditional  statement. 

If  one  places  several  statements  end  to  end,  separates  them 
with  semicolons  and  then  puts  a  begin  in  front  and  an  end  at  the  rear 
he  has  a  single  compound  statement.   This  compound  statement  is  then 
treated  as  one  statement,  not  the  several  of  which  it  is  composed.   This 
is  especially  important  when  parsing  case  statements  and  procedure  declara- 
tions. The  compound  statement  has  the  following  basic  form: 
begin  S;  S;  S;  S;  S ;  S;...S;  S ;  S  end 

If  one  takes  the  statement  list  previously  described,  precedes 
it  with  a  list  of  declarations  separated  by  semicolons,  and  then  wraps  it 
in  a  begin  end  pair,  he  has  a  single  block — which  is  also  a  single  statemerr 
The  basic  form  of  a  block  is 

begin  D;  D;  D;  S;  S;  S;...S;  S  end 

A  case   statement   and  a  conditional  statement  take  the  same  forms 
as    case   and  conditional  expressions    (cf.    1.1.6.)    except  that   they  select 
from  a  choice  of  statements   rather  than  expressions.      Conditional  and  case 
statempnts    ha.vp    t.hp    fnl  1  trwi  n e    forms: 
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if  Boolean  expression  then  S ;  S ; . .  .  ;  S  else  S  ; .  . .  ;  S  f i 

case  integer  expression  of  S_:...S   n;  S  esac 
°  —  0     n-1   n  

2.3.2.   Iterative  Statements 

Iterative  statements  take  many  forms.   They  are  used  to 
control  loops.   One  may  step  through  a  loop  until  some  condition  is 
satisfied,  incrementing  some  index,  or  choosing  items  from  a  list.  The 
forms  of  the  iterative  statement  are  generally  self-explanatory.  In 
the  following  forms  several  abbreviations  are  used.   V  is  a  variable, 
S  a  statement,  I  an  integer,  B  a  Boolean,  Str  a  string,  Ptr  a  pointer, 
Pat  a  pattern,  and  E  an  expression.   For  example,  B.E.  is  a  Boolean 
expression  and  I.V.  an  integer  variable. 
Iterative  Statement  Forms: 

1)  while  B.E.  do  S 

2)  do  S  until  B.E. 

3)  for  I.E.  times  do  S 

10   for  V  ^  EQ,  El5...,  E2,  do  S 

In  form  1,  the  Boolean  Expression  is  evaluated  and  tested. 

If  it  is  true,  the  statement  following  the  do  is  executed  and  the  whole 
I 

process  begins  again  with  a  reevaluation  of  the  Boolean  expression. 

If  it  is  false,  the  statement  is  skipped  and  control  continues  after 

the  iterative  statement. 

Form  2  is  similar  to  form  1  except  that  the  statement  is 
executed  first.   Then  the  Boolean  expression  is  evaluated.   In  this  case, 
a  false  result  continues  the  loop  and  a  true  result  terminates  the  loop. 

Form  3  simply  specifies  that  a  statement  is  to  be  unconditionally 
executed  a  fixed  number  of  times. 
Examples : 

while  i  <  j  do 
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begin 

i  +  i+1; 

some__f unction   ( i  ,j  ) 
end- 
do  A[i  «-  *+l]  -*-  0  until  i   =  n 
for  n  times   do  factorial  -«-  **(i  ■*-  *+l) 
Form  k  actually  has  many  variations.      The  variable  V  may  he 
integer,   Boolean,   string,  pointer,   or  pattern.      The  types   of  the  expressions 

Ert,...,E     are  the  same  type   as  the  variable  V.      In  the  basic  form  k,  the 
On  ' 

variable  V  is   first   assigned  the  value  E    .      Then  statement  S  is   executed. 
Then  V  is   assigned  the   value  E    .      Then  statement   S   is   executed  again. 
This   continues  through  all  of  the  E's. 

If  the  variable  in  form  k  is   an  integer,   some  interesting 
variations   are   allowed  in  the  E's.      In  this   case  the  form  of  the  E's 
may  be 

k.l).      I.E.  ' 

k.2).     I.E.     toI.E.g 
k.3).      I.E.X  to  I.E. 2  bv_  I.E. 
k.k).      I.E.      step   I.E.      until  B.E. 
U.5).      I.E.   while  B.E. 

Form  k.l  is   identical  with  a  standard  form  k  interaction.      Form 

k.2   specifies  that  the  variable  will  be   stepped  from  I.E.      to  I.E.      by 

the  increment  +1.      If  I.E.      >   I.E.      no   statement  will  be  executed  and 

the  next  E  in  the   form  k   iteration   expression  list  will  be   executed. 

Form  k.3  is   the   same   as   k.2  except  that   an  increment   is   specified.      In 

this    case   I.E._  may  be  positive   or  negative   and  the  test   for  the  end  of 
3 

this   iteration  expression  is   then  made   respectively  on  V  >   I.E.      or  V  ■■  1^3' 
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Form  k.k   specifies  that  V  is  to  be  set  to  I.E.  .   The  Boolean  expression 
is  then  tested.   If  it  is  true  this  iteration  expression  is  finished.   If 
it  is  false  then  the  statement  S  is  executed;  V  ■*■  V+I.E.  ;  and  the  Boolean 
expression  tested  again.   Form  h.5   specifies  that  V  ■*-  I.E.   If  the  Boolean 
expression  is  false,  no  statement  is  executed — the  iteration  expression 
is  finished.   If  the  Boolean  expression  is  true,  the  statement  S  is  executed; 
V  +■  I.E.;  and  a  new  test  is  made. 

In  the  evaluation  of  the  integer  expressions  above,  bad  side 
effects  can  present  themselves.   For  example,  the  loop  end,  I.E.  ,  in 
form  k.2   may  be  a  complex  expression  that  takes  significant  time  to  compute 
each  time  through  the  loop.   Often  times,  systems  coders  desire  these 
effects.   However,  it  is  necessary  to  carefully  evaluate  each  expression 
and  assign  it  to  a  separate  variable  outside  the  loop  if  extra  computations 
are  to  be  avoided.   Therefore,  in  each  of  the  forms  k.l   to  h.3   one  may 
write  value  (I.E.)  instead  of  I.E.   If  this  is  written,  the  I.E.  is 
evaluated  only  once,  at  the  beginning  of  each  iterative  expression,  rather 
than  many  times  (i.e.  once  for  each  iteration)  for  each  iteration  expression, 
Examples : 

1.   for  S  [I]  +■  "IF",  "NOT",  "MAYBE"  do  S2  «-  *&S[l] 
I  2-   for  x  •*-  1,  2,  3,  n  step  1  until  sqrt  (x)  <  100*n,  15,  16, 

i  i£  value  ( j*f  (n) )  bv_  11,  x+1  while  x<n  do  print  (x,y,z) 
3-   for  x  +■  x+1  while  x<10  do 
begin 

if  even  (x)  then  x  •*■   x+1  f i ; 

test  (x) 
end 
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2.3.3.   Assignment  Statement 

The  assignment  statement  assigns  a  value  to  a  variable.   These 
variables  may  be  integers,  Booleans ,  strings,  pointers  and  patterns. 
Furthermore  whole  structures  and  substructures  can  be  assigned  new  values 
from  another  structure  or  substructure. 

The  basic  assignment  statement  has  the  form 
variable  ■*■  expression 
or 

structure  <-   structure  expression. 

The  assignment  arrow  may  be  either  the  symbol  "■«-"  or  ":=". 
Since  expressions  can  also  be  assignment  statements,  the  general  form  of 
the  assignment  statement  is 

V  «-  V  «-  V V  ««-  V  «-  E 

The  evaluation  of  primaries  and  subscripts  is  made  from  left  to  right 
subject  to  the  conventional  precedence  of  operators.   The  order  of 
assignment  is  right  to  left.   The  order  of  assignment  should  normally 
only  be  important  if  access  variables  appear  on  the  left  hand  side  of  an 
assignment  arrow. 

In  the  case  of  integer,  Boolean,  and  string  assignments,  an 
asterisk  convention  is  allowed.   That  is,  the  presence  of  an  asterisk 
as  the  very  first  primary  to  appear  on  the  right  of  an  assignment  arrow 
denotes  the  same  variable  as  the  variable  to  the  immediate  left  of  the 
assignment  arrow.   For  example,  let  x  and  n  be  integers  and  A  an  array, 
x-f-  *  +  1  is  equivalent  to  x  ■+■  x  +  1 
x  ■*■   ((**n)...is  equivalent  to  x  <-  ((x*n)... 
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A  [x]  ■«-  *+n  is  equivalent  to  A[x]  ■*-  A[x]  +  n 

n  +  x-«-  *  +  n  is  equivalent  to  n  ■«-  x  -«--x  +  n 

A  [x  •«-  *  +  l]  *•   *  +  n  is  NOT  equivalent  to  A  [x  +  x+l]  -*-  A  [x  «t-  x+l]  +  n 

it  IS.  equivalent  to  A  [x  -t-   x  +  l]  ■*-  A[x]  +  n 

Note  in  this  last  example  that  the  side  effect  of  incrementing 
x  when  evaluating  the  subscript  of  A  is  not  duplicated  on  the  right.   The 
asterisk  notation  refers  to  the  identical  variable  as  appears  on  the  left 
of  the  arrow  not  to  the  same  variable  expression  as  appears  on  the  left. 

When  assigning  values  to  pointers,  the  values  so  assigned 
must  be  at  the  same  or  higher  level  as  the  pointer  receiving  the  value. 
Thus,  if  P  is  a  pointer  declared  in  a  block  that  is  global  to  the  block 
in  which  P  is  declared,  P  -«-  P  is  not  allowed  but  P  «-  P  is.   All 
formal  procedure  parameters  are  considered  global  to  any  parameters  declared 
in  the  outermost  block. 

Patterns  must  also  obey  the  same  rules  of  assignment  as  pointers. 
Structures  or  substructures  may  receive  the  values  of  other 
structures  or  substructures  provided  that  there  is  a  complete  match  of 
all  data  types  in  the  respective  structures  or  substructures. 
Example : 

begin 

structure  A  (integer  B,C;  structure  D  (integer  A) ) ; 
structure  B  (integer  X,Y;  structure  Z  (integer  L) ) ; 
structure  C  (integer  A) ; 
A  «-  B; 
A.D  +-  B.Z; 
A.D  «-  C; 
C  +  B.Z 
end 
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This  is  a  correct  program.   Note  that  A  •«-  C  would  not  be  allowed 
since  A  and  C  have  different  type  structures. 
2.3.^.   Pattern  Matching  Statement 

The  pattern  matching  statement  is  the  basic  SNOBOL  string 
replacement  statement. 

Form:   S[ fixed]  P  [-<-  string  expression] 

S  is  a  string  variable,  P  a  pattern  expression  and  optional  items  are 
enclosed  in  the  metalinguistic  square  brackets.   A  pattern  matching  state- 
ment is  also  a  Boolean  expression  which  is  true  if  a  match  is  made. 

Several  examples  would  give  a  quick  feel  for  the  power  and 
use  of  pattern  matching  statements. 

1.  Does  the  string  S  contain  the  letter  "A",  "B" ,  or  "C"? 

S  {"A"  |  "B"  |  "C"} 

2.  Does  S  begin  with  "A",  "B" ,  or  "C"? 

S  fixed  {"A"  |  "B"  |  "C"} 
Note  that  the  reserved  word  fixed  specifies  that  the  patterns  must 
match  beginning  at  the  very  first  character. 

3.  Does  S  contain  two  "A'"s? 

S  {"A"  &any&  "A"} 
This  pattern  match  is  true  if  the  string  S  contains  the  letter  "A" 
followed  by  any  pattern  followed  by  another  "A" . 
k.      Replace  all  occurances  of  the  letter  "A"  in  string  S  with  the  digit  'T 

while  S  {"A"}  «-  "1"  do 
This  uses  an  iteration  statement  with  a  dummy  statement.   The  intent 
is  to  repetitively  execute  the  pattern  matching  statement  until  a 
match  is  no  longer  made.   When  a  match  is  made,  that  part  of  the 
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string  matched  is  replaced  by  the  string  expression  to  the  right  of 
the  arrow. 

5.  Some  strings  begin  with  the  character  "(".   If  the  character  ")" 
occurs  later  in  the  string,  replace  the  "("  and  ")"  by  "["  and  "]". 

s  fixed  {"("&{Stemp  *■  any>")"}  «-  "["&  Stemp  &  "]" 
In  this  case  a  string  variable,  "Stemp",  has  been  used  to  store  the 
string  matched  by  the  pattern  any.   "Stemp"  thus  saves  the  characters 
between  the  parentheses  for  later  use  in  the  string  assignment  to 
the  matched  pattern. 

6.  Replace  the  first  occurance  of  "A",  "B",  or  "C"  in  "S"  followed  by 
any  single  character  with  the  same  "A",  "B",  or  "C"  followed  by  a 
period. 

S  {SI  *•   {"A"  I  "B"  I  "C"}  &  any_(l)}  +■  SI  &  "." 
This  is  another  instance  of  saving  a  partial  string  for  use  later 
in  the  assignment.   Note  the  optional  parameter  on  the  any  pattern. 
This  is  a  pattern  that  matches  any  string  of  characters  of  length  "l". 

7.  The  following  pattern  assignment  creates  a  pattern  that  will  recognize 
an  identifier. 

ID  «-  {span  ("ABCDEFGHIJKLMNOPQRSTUWXYZ") 

&{span  ("ABCDEFGHIJKLMN0PQRSTUWXYZ01231+ 56789")  |  MT}} 
The  pattern  variable  "ID"  may  now  be  used  to  scan  the  string  "CARD"  to 
find  the  first  identifier  and  store  the  identifier  into  string  "S". 

CARD  {S  -h  ID} 
Assume  that  the  string  "CARD"  contains  a  list  of  identifiers  that 
should  be  placed  in  the  array  "x" .   The  following  codes  would  all 
assign  the  successive  identifiers  beginning  at  "x[l]". 

integer  I  «-  1; 

while  CARD  {any  &  {x[l  ]  «*■  ID}}  «-  MT  do  I  *-   I  +1 


38 


or 


integer  I  -«-  0 ; 

for  I  <-  1+1  while  CARD  {any_  &  {x[l]  «-  ID}}  «-  MT  do 


or 


integer  I ; 

for  I^-l  step  1  while  CARD  {any_  &  {x[l]  +   ID}}  -t-  MT  do 
In  the  above  examples ,  note  that  a  pattern  match  is  attempted 
on  the  first  part  of  the  string — anything  followed  by  an  identifier. 
If  a  match  is  made,  the  statement  is  true  and  the  matched  part  of  the 
string  "CARD"  is  replaced  by  the  empty  string.   Thus  the  first  identifier 
is  removed  from  the  string  so  that  further  tests  are  not  made  on 
previously  recognized  identifiers.   The  assignment  to  the  array  "x"  is 
performed  as  a  side  effect  of  the  pattern  match.   It  is  common  when  using 
pattern  matching  statements  as  the  termination  condition  of  a  loop,  that 
the  statement  following  the  do_  is  empty. 
2.3-5.   Procedure  Statements 

Procedure  statements  specify  that  certain,  previously  declared, 
portions  of  code  are  to  be  executed.   The  OSL/2  procedure  statement  is 
similar  to  the  ALGOL  60  procedure  statement  and  similar  to  the  FORTRAN 
subroutine  call. 

The  procedure  statement  consists  of  the  procedure  identifier 
followed  by  an  optional  parameter  list  enclosed  in  parenthesis . 
Examples : 

X 

Resequence 
Call_Subr   (A,B,C) 
Rewind   (tape_9) 
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l.k.      Procedures  and  Functions 

OSL/2  procedures  are  declared  and  used  in  a  manner  very  similar 
to  ALGOL  60  procedures.   The  primary  difference  is  that  default  para- 
meters are  allowed  in  procedure  and  function  calls . 

A  procedure  declaration  consists  of  a  procedure  heading 
followed  by  a  statement.   For  example,  a  simple  procedure  called 
"add_one_to_A"  might  have  the  following  declaration. 
procedure  add_one_to_A ; 
A  <-   *  +  1 
The  later  occurrence  of  the  statement  "add_one_to_A"  in  the  OSL/2 
program  will  cause  the  statement  "A  -<-  *  +  l"  to  be  invoked. 

The  procedure  heading  may  specify  some  formal  parameters  to 
the  procedure  body  (the  statement  following  the  procedure  heading). 
Example : 

procedure  add_one  (x) ; 
integer  x; 
x  +■   *  +  1 
In  this  example  the  formal  parameter  "x"  is  provided  for  use 
in  the  procedure  body  "x  -*■  *+l".   "x"  must  be  declared  in  the  procedure 
heading.   The  procedure  heading  lists  all  the  formal  parameter  identifiers. 
This  list  is  enclosed  in  parentheses  and  follows  the  procedure  name. 
Each  formal  parameter  must  be  declared  in  the  formal  parameter  specifi- 
cation.  The  formal  parameter  specification  is  part  of  the  procedure 
heading  and  precedes  the  procedure  body. 

The  occurrence  of  the  statement  "add_one(A)"  later  in  the 
OSL/2  program  will  now  invoke  this  procedure  with  "A"  substituted  for 
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"x"  in  the  procedure  body.   Thus  "add_one(A)"  will  cause  the  statement 
"A  <-   *+l"  to  be  invoked. 

Formal  parameters  may  be  called  by  name ,  by  value ,  or  by 
reference.   If  they  are  called  by  value,  their  identifiers  must  appear 
in  the  value  part  of  the  procedure  heading.   The  value  part  precedes 
the  formal  parameter  specification.   Formal  parameters  which  are  called 
by  name  must  have  their  identifiers  appear  in  a  name  part  in  the 
procedure  heading.   The  name  part  may  take  the  place  of,  immediately 
precede,  or  immediately  follow  the  value  part.   Parameters  which  are 
neither  called  by  name  nor  called  by  value  are  called  by  reference.   The 
general  form  of  a  procedure  heading  is 

procedure  <procedure  id>[(<id  ,...,  id>)]; 

[value  <id>  , .  .  .  ,<id>  , ;  ] 

[name  <id>  , .  .  .  ,<id>  ;  ] 

[ <declaration> ; . . . <declaration> ; ] 
Where  the  square  brackets  are  metalinguistic  and  indicate  optional  syntax. 
The  positions  of  the  name  and  value  parts  may  be  interchanged. 
Example : 

procedure  add_3(A,B,C,N) ; 

value  N;    integer  A, B,C,N; 

begin 

A  «-  *+N ; 
B  <-  *+N; 
C  +   *+N 

end 
In  this  example,  the  formal  parameters  "a" ,  "B" ,  and  "C"  are  called  by 
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reference  and  "N"  is  called  by  value.   The  statement  "Add_3(X,Y,Z , L+M+Q) " 

is  equivalent  to 

begin 

integer  N.      , 
B —  internal; 

N.  ,     ,  ■+■  L+M+Q 
internal 

X  «-  *+N.  , 

internal; 

Y  -<-  *+N.  , 

internal; 

Z  -*-  *+N. 

internal 

end 
If  the  formal  parameter  "N"  was  called  by  name  the  statement  "add_3( X,Y,X, L+M+Q) ' 
would  be  equivalent  to 

begin 

X  -t-  *+L+M+Q; 

Y  •*-  *+L+M+Q; 
Z  <-   *+L+M+Q 

end 
When  one  calls  an  actual  parameter  by  name  inside  the  procedure  body, 

4 

the  entire  actual  parameter,  with  parenthesis  around  it  if  necessary, 
replaces  the  formal  parameter.   When  one  calls  an  actual  parameter  by 
value,  the  actual  parameter  expression  is  calculated  once  upon  entry 
to  the  procedure.   This  calculated  value  is  stored  in  a  variable  local 
to  the  procedure  and  all  references  to  the  formal  parameter  are  made 
from  and  to  this  local  variable. 

Call  by  value  allows  one  to  increase  efficiency  by  eliminating 
many  evaluations  of  the  identical  expression  and  allows  one  to  avoid 
undesireable  side  effects.   For  example,  if  the  actual  parameter  "N"  was 
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"L  ■+■  L+M+Q"   in  the  above   example  and  if   "N"  -was    called  by  name,   the 
equivalent   statement  to    "add_3(X,Y,Z,L  ■+■  L+M+Q)M  would  be 

begin 

X  «-  *+(L  -e-  L+M+Q)  ; 
Y  -«-  *+(L  -*-  L+M+Q); 
Z  «-  *+(L  «-  L+M+Q) 

end 
Note  that  the  value  of   "L"   is   continually  changed.      This  may  be  a  bad 
side   effect   if  unexpected. 

Call  by  value  may  be  used  to  keep   an  external  variable   from 
being  changed  by  a  procedure   call. 
Example : 

procedure  Add_W(A,N) ; 

value  N;  integer  N,A; 

while  N  *■   N-l  >=  0  do  A  -e  A+l 
While  this  may  be  the  hard  way  to  add  "N"  to  "A",  it  does  illustrate  how 
one  would  protect  the  value  of  "X"  in  the  statement  "Add_N(X,X) ".   If 
"N"  is  called  by  value,  this  will  double  "N"  (assuming  "N"  is  positive). 
If  "N"  is  called  by  name,  this  statement  would  be  equivalent  to  "while 
X  ■*■   X-l  =  0  do  X  ■*■  X+l"  which  is  an  infinite  loop. 

The  procedure  "Add_N"  also  demonstrates  the  illegal  statement 
side  effect.   "Add_N(  X,23+l6  ) "  is  legal  if  "N"  is  called  by  value.   If  "N" 
is  called  by  name,  this  is  equivalent  to  "while  (23+l6)  +■  (23+16 )-l  >=  0 
do  X+  X+l".   This  clearly  has  an  illegal  assignment  to  "(23+l6)"  which 
is  not  a  variable. 
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If  a  parameter  is  not  specified  to  be  called  by  name  or 
called  by  value,  then  it  is  called  by  reference.   Parameters  called 
by  reference  are  similar  to  FORTRAN  subroutine  parameters.   If  possible 
a  "reference"  is  a  pointer  to  or  an  address  of  a  single  variable,  a 
structure,  an  array,  a  substructure,  or  a  single  element  of  a 
structure  or  an  array.   This  "reference"  (pointer  or  address)  is 
calculated  once,  just  before  procedure  entry.   If  it  is  not  possible 
to  generate  such  a  "reference"  then  the  actual  parameter  will  be  called 
by  value.   This  is  generally  the  case  when  a  complex  expression  or 
procedure  call  is  used  as  a  parameter. 
Example : 

Assume  the  following  global  declarations 
structure  S  ( integer  X,Y); 
integer  I,L,M,N; 
integer  A[0:10] ; 

structure  Big  (integer  X,Y  [0:10]); 
procedure  P  (l,A,S); 
integer  I,A[0:10] ; 
structure  S  (integer  A,B) ; 
begin 
end  P 
Let  us  call  the  procedure  "P"  with  the  following  actual  parameters 
for  "I". 
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s.x 

A[I] 

A[I  «-  1+1] 

Big.S.Y 

L 

N 


These  parameters  will  have  references 
calculated.  Note  that  each  subscript 
will  be  computed  only  once. 


L+N+M 
I  <-   1+1 
A[I]+A[I+1] 
S.X*N 


-\ 


J 


These  parameters  will  be  reduced  to 
call  by  value  parameters . 


Let  us  call  "P"  with  the  following  actual  parameters  for  the 
formal  parameter  "A" 

A  1         References  will  be  calculated 

Big.Y  J         for  these  arrays. 

Let  us  call  "P"  with  the  following  actual  parameters  for  the 

formal  parameter  "S" 

S  V         References  will  be  calculated 

Big.S  J         for  these  structures. 


if  I<L  then  S  else  Big.S  fi 


These  structure  expressics 
will  be  called  by  value,  j 


case  I  _of  S,  Big.S,  Big.S  esac 

In  systems  programming,  one  frequently  calls  a  procedure  with 

many  parameters  such  that  one  or  two  of  these  parameters  are  varied  and 

the  others  are  usually  the  same.   OSL/2  allows  one  to  specify  a  default 
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parameter  for  a  formal  parameter  by  initializing  the  formal  parameter 
in  the  formal  parameter  specification. 
Example : 

integer  standard_priority  ■*■  25, 

standard_core  -<-  15000, 

standard_time  ■*-  3600, 

standard_lines  ■*-   10000; 

procedure  insert_in_job_Q  ( Job , priority, core, time, lines ) ; 
value  Job , priority , core, time, lines  , 
structure  Job  (integer  type,  steps_completed; 

Boolean  TTY_Job) ; 
integer  priority  •*■   standard_priority , 
core  +■   standard_core, 
time  *■  standard_time, 
lines  ■*•   standard_lines  ; , 
begin 
end 
When  one  calls  a  procedure,  he  may  specify  default  values 
by  leaving  the  actual  parameter  position  empty,  inserting  an  asterisk, 
"*" ,  or  by  eliminating  the  parameter  position  if  it  is  the  last  part  of 
the  parameter  list.   The  following  calls  are  then  all  equivalent: 
insert_in_job_Q  (J[23]) 
insert_in_job_Q  ( J [23 ],*,,) 
insert_in_Job_Q  ( J[23] ,  ,standard_core,*,*) 
insert_in_fjob_Qn(  J[23]  ,standard_priority ,  standard_core  , 

standard  time,  standard  lines) 
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When  an  initialization  appears  in  a  formal  parameter  specification,  an 
actual  parameter  equal  to  the  initialization  is  constructed.   This  is 
saved  and  inserted  at  any  later  procedure  statement  when  a  default 
value  for  this  parameter  is  desired.   The  specification  of  a  default 
parameter  is  a  flag  to  the  compiler.   It  does  not  generate  any  additional 
code  in  the  procedure  body. 

To  further  aid  the  specification  of  parameters,  a  key  word 
facility  is  provided.   A  particular  actual  parameter  may  be  input  to 
a  procedure  by  default,  by  placement  in  the  appropriate  position  of  the 
ordered  actual  parameter  list  or  by  specifying  the  formal  parameter 
identifier  followed  by  a  colon  and  the  actual  parameter.   Keyword  actual 
parameters  need  not  appear  in  any  particular  order.   They  do  however, 
occupy  one  position  each  in  the  ordered  actual  parameter  list.   There- 
fore, if  a  keyword  actual  parameter  is  used,  the  parameter  position  it 
occupies  must  be  specified  elsewhere  as  a  keyword  actual  parameter  or 
it  must  be  defaulted. 
Examples  based  on  the  previous  procedure  "insert_in_job_Q" : 

insert_in_job_Q  (j[23],  Time:   standard_time ,  standard_core) , 
insert_in_job_Q  (core:   standard_core  ,  standard_priority , 

Job:!  [23]) 
insert_in_Job_Q  ( J[23] ,  priority:   standard_priority) 
All  OSL/2  procedures  are  reentrant.   In  order  to  allow  one  pass 
compilation,  all  procedures  and  data  must  be  declared  before  they  are  used. 
This  would  cause  a  significant  problem  if  one  had  a  procedure  A  which 
invoked  procedure  B  and  B  could  also  invoke  A  recursively.   The  ' forward 
procedure  declaration  is  used  to  provide  the  information  the  compiler 
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needs  to  compile  calls  on  a  procedure  without  compiling  the  procedure 

"body  of  A  which  contains  the  call  on  the  as  yet  undeclared  procedure  B. 

In  the  forward  procedure  declaration,  the  procedure  heading  is  complete, 

but  the  procedure  body  is  replaced  by  the  reserved  word  "forward". 

The  complete  declaration  of  the  forward  procedure  must  follow  later  with 

a  statement  for  the  procedure  body. 

Example : 

procedure  A(N) ;  value  N;  integer  N;  forward ; 

procedure  B(M,N) ;  integer  N,M; 

begin 

A(M); 

end; 

procedure  A(n) ;  value  N;  integer  N; 

begin 

B(Q,R) 

end; 

Occasionally,  a  procedure  is  a  formal  parameter  to  a  procedure. 
In  this  case,  the  complete  procedure  heading  must  be  provided  in  the 
formal  parameter  specification.   However,  the  reserved  word  "formal" 
will  be  used  as  the  procedure  body. 
Example : 

procedure  add  (A,B,C);  integer  A,B,C;  A  «-  B+C; 
procedure  sub  (A,B,C);  integer  A,B,C;  A  «-  B-C; 
procedure  either  (operation,  X,Y,Z); 
integer  X,Y,Z; 
procedure  operation  (X,M,A) ;  integer  X,M,A;  formal ; 
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operation  (X,Y,Z); 
integer  (L,M,N)  «-  0; 

either  (add,  L,L,l); 
either  (sub,  L,M,N) ; 

A  function  is  a  procedure  that  can  return  an  integer,  Boolean, 
string,  pointer,  pattern,  or  structure  value.   Functions  may  thus  "be 
used  as  primaries  in  expressions. 

A  function  declaration  has  a  type  designation  preceding  a 
procedure  declaration.   Any  substructure  information  or  string  parameter 
information  must  be  part  of  this  type  designation. 
Example : 

integer  procedure  a(X,Y,Z);... 
Boolean  procedure  b(X,Y) ; . . . 
string  procedure  c(x) ; . . . 
string  (N,M)  procedure  d(X,y); 
string  (lengthl)  procedure  e(x) ; . . . 
pointer  procedure  f (x,y ) ; . . . 
pattern  procedure  g; . . . 
structure  (integer  A,B; 

structure  X( pointer  left,  right;  string  name); 
structure  Y( integer  A,B,C); 
Boolean  bl,b 2)  procedure  Svalue  (x,y);... 
To  leave  a  procedure  body,  one  either  executes  the  entire 
body  and  exits  at  the  last  statement,  or  he  executes  an  escape  statement. 
In  a  procedure  the  escape  statement  is  simply  the  reserved  word  leave 
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followed  by  the  procedure  name.   When  leaving  a  function,  the  escape 
statement  may  have  an  expression  enclosed  in  parentheses  following  it. 
Examples : 

leave  sqrt(23) 

leave  sflC'ABC") 

leave  Calc  (A+B/l6) 
These  escape  statements  return  a  value  for  the  function  as  they  exit 
the  procedure  body. 

It  is  possible  to  have  the  procedure  identifier  appear  on  the 
left  hand  side  of  an  assignment  statement  within  the  procedure  body. 
This  assignment  statement  assigns  an  interim  value  to  the  function. 
If,  later,  an  exit  is  made  via  the  end  of  the  procedure  body  or  with  a 
simple  escape  statement  (not  followed  by  an  expression)  then  the  last 
such  interim  value  assigned  is  returned  as  the  function  value. 
Example : 

integer  procedure  add  (A,B) ;  integer  A,B; 

add  +■   A+B; 
2.5.   Control  Concepts 
2.5.1.   Escape  Statements 

The  go  to  statement  has  been  excluded  from  OSL/2.   In  its 
place  is  the  escape  statement  "leave",  which  exits  one  or  more  statements. 

The  escape  statement  used  to  exit  a  procedure  body  has  already 
been  described. 

The  labelled  leave  statement  is  used  to  exit  a  statement.   In 
order  to  leave  a  statement,  a  label  must  be  provided  in  front  of  and  after 
the  statement.   A  colon  separates  the  label  from  the  statement. 

form:   label:   statement   :label 
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The  leave  statement  is  the  reserved  word  leave  followed  by  a  label. 
Example : 

cutter:   while  a<b  do 

inner:   begin 

leave  outter; 

leave  inner; 

end   : inner   : outter 
The  occurrence  of  a  label  after  a  statement  is  required  for  documentation 
purposes  only.   The  first  label  determines  the  parse. 

The  label  in  a  leave  statement  may  be  global  to  the  block  or 
procedure  body  in  which  the  escape  statement  appears. 
2.5.2.   Semaphores 

Semaphores  were  introduced  by  Dijkstra  [2,1+  ]  for  the  synchroni- 
zation of  parallel  processes.   Habermann  [15]  has  proven  that  P  and  V 
operators  on  semaphores  are  sufficient  to  safeguard  any  critical  sections 
of  system  code. 

A  semaphore  is  a  special  purpose  integer  variable.   Semaphores 
are  declared  analogously  to  integers .   The  reserved  word  semaphore  replaces 
the  reserved  word  integer. 
Example : 

semaphore  a,b  ,c  ,(  d,e,f )  «-  l,x,y,z  ■*■  0,q,r,s 
Semaphores  are  normally  initialized  to  zero  unless  otherwise  specified 
in  their  declaration. 

The  only  operations  that  may  be  performed  on  semaphores  are 
P  and  V  (written  "P(s)"  and  "V(s)"  where  s  is  a  semaphore). 
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When  a  process  performs  the  operation  P(s),  the  semaphore  s  is 
decremented  by  one  (s  ■*-  s-l)  .   If  the  decremented  value  of  s  is  negative  (s<0) 
then  the  process  is  blocked  and  is  booked  on  a  waiting  list. 

When  a  process  performs  the  operation  V(s),  the  semaphore  s  is 
incremented  by  one  (s  -e-  s+l).   If  the  value  of  s  is  positive  (s>0)  then 
no  further  action  is  taken.   If  the  value  of  s  is  non-positive  (s<p)  then 
one  or  more  processes  "were  blocked  and  are  booked  on  a  waiting  list.   In 
this  case  one  process  is  removed  from  the  waiting  list  and  may  now  proceed. 

P  and  V  operators  can  be  used  to  implement  complex  waiting 
queues  and  priorities.   Therefore,  the  primitive  queuing  algorithm  is  not 
specified.   Regardless  of  the  original  queuing  algorithm  on  a  single 
semaphore,  a  new  one  can  be  built  through  the  use  of  one  or  more  semaphores. 

P  and  V  provide  access  to  critical  code  or  some  system  resource. 
To  implement  any  scheduling  scheme  on  x,  one  could  introduce  a  process  X 
which  schedules  x.   A  process  which  desires  x  would  then  use  one  sema- 
phore to  pass  this  request  to  X  and  another  to  block  its  continuation  until 
x  was  available. 


Example 


P(msg) ;        seize  message  path  to  X 

!  send  message  to  X  requesting  x 

V(msg) ;        release  message  path  to  X 


P(x.) 


seize  x 


use  x 


P(msg) ;        seize  message  path  to  X 

'.  send  message  to  X  releasing  x 

V(msg) ;        release  message  path  to  X 
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Note  in  the  above  example  that  each  process  "would  use  the  "msg"  semaphore 
to  communicate  with  X  hut  each  process  would  use  a  different  semaphore 
(indicated  by  x. )  to  block  its  access  to  x.   The  process  X  would  perform 
any  necessary  V(x. )  to  permit  a  particular  process  (the  i   process  to 
which  semaphore  x.  refers)  to  have  access  to  x.   Clearly,  X  can  implement 
an  arbitrary  booking  and  dispatching  algorithm  for  x. 
2.5.3.   Processes 

OSL/2  processes  are  separately  running,  asynchronous  procedures 
or  programs.   Six  primitives  control  these  processes:   spawn,  append, 
initiate,  suspend,  restart ,  and  terminate. 

The  spawn  primitive  allows  one  to  spawn,  from  inside  a  process, 
another  process  which  will  run  at  the  same  level  as  the  spawning  program. 
The  spawning  program  and  spawned  program  have  no  special  relationship. 
If  the  already  executing  process  A  of  operating  system  OS  spawned 
process  B  the  relationships  would  be  diagrammed  as  follows. 

A        B 
OS 
Any  parameters  passed  to  the  spawned  process  are  called  by  value  if  they 
are  defined  within  the  spawning  process. 
Examples : 

spawn  (program) 

spawn  (routine  (x,y,z)) 

A  process  may  append  a  procedure.   An  appended  procedure  has 
access  to  all  normally  addressable  constructs.   A  process  may  not  leave 
a  block  until  all  procedures  appended  in  that  block  have  returned. 
Appended  procedures  run  asynchronously  with  the  appending  process. 
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Example : 

begin 

integer  (A,B,C)  [0  :9] ,  X,Y,Z,N  «-  9; 
procedure  inner_j>roduct  (A,S)  \   integer  AlO;N]  „Sj 
"begin 

integer  sum  -*-  0,i; 

for  i   0  to  I  do  sum  <-   sum  +  A[i]*A[iJ; 

S  ■+-  sum 
end   ; 

append  (inner_product(A,X) ) ; 

append  (inner  product (B, Y) ) ; 

inner-product ( C  ,Z )  ; 
end 
In  this  example  three  processes  would  be  running  simultaneously. 
Two  new  processes  would  be  created  to  perform  the  procedure  "inner  .product"  on 
arrays  "A"  and  "B",  and  the  original  process  would  calculate  "inner_product" 
of  "C".   All  three  processes  have  access  to  the  same  global  variable  "N" 
but  each  inner  product  procedure  has  its  own  local  variables  "i"  and 
"sum"  which  are  not  addressable  by  the  other  processes. 

Initiate  creates  a  new  process  that  is  to  be  monitored  by 
the  initiating  process.   The  new  process  may  not  directly  address  constructs 
within  the  initiating  process.   All  communication  to  the  initiating  process 
must  take  place  through  the  primitives  defined  by  the  initiating  process 
and  any  parameters  passed  to  the  process.   A  process  variable  is  attached 
to  each  such  process.   The  process  variable  is  used  to  "suspend",  "restart", 
and  "terminate"  the  initiated  process  . 
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Example : 

process  pl,p2,p3; 

initiate  (program,  pi); 

initiate  (program,  p2) ; 

initiate  (user  job  (l0,file_23) ,p3) ; 

suspend  (pi) ; 

suspend  (p2) ; 

restart  (p2) ; 

terminate  (p3)  ; 

If  a  terminate  statement  appears  in  a  process  without  a  process  variable 
for  a  parameter,  then  the  process  in  which  the  statement  is  executed  is 
terminated. 
Example : 

terminate 
2.5-)4.   Traps 

Traps  are  special  conditions  that  arise  in  the  course  of 
executing  an  operator.   For  example,  divide  by  zero  or  index  out  of 
range.   If  desired  a  procedure  may  be  executed  to  handle  the  special 
condition. 
Examples : 

on  index  terminate 

on  overflow  leave  overflow  (99999) 

on  divide_by_zero   (Numerator)    leave   divide_by_zero   (Numerate-'1 
Traps   vary  from  machine  to  machine.      Therefore,   each  OSL/2  implementation 
must   define   reserved  or  key  words    for  each  such  trap.      The  trap  declaration 
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consists  of  the  reserved  word  on  followed  by  the  trap  condition  followed 
by  an  optional  set  of  parameters  followed  by  a  statement.   The  parameters 
contain  pertinent  information  about  the  environment.   For  example,  an 
implementation  might  return  the  value  of  an  index  causing  an  index  fault 
and  also  the  array  bounds  involved.  While  index  out  of  range,  integer 
overflow,  and  divide  by  zero  are  clearly  required  in  OSL/2 ,  the  definition 
of  the  trap  environment  (i.e.  trap  parameters)  is  left  to  each  implementation, 

The  trap  facility  allows  a  way  of  specifying  special  operators 
for  a  microcoded  machine  or  perhaps  a  way  of  changing  the  semantics 
of  existing  operators.   For  example,  one  implementation  might  allow  a 
trap  on  all  integer  divides  so  that  the  coder  could  define  the  semantics 
of  divide. 
2.5.5.   Primitives 

The  reinterpretation  of  the  primitives  between  system  layers 
is  frequently  implementation  dependent.  While  OSL/2  specifies  the  manner 
in  which  reinterpretation  will  be  performed  the  actual  specification  of 
a  primitive  may  vary  from  installation  to  installation. 

In  general,  the  scope  of  primitive  declarations  is  the  same 
as  for  normal  procedure  declarations  with  the  following  extensions. 
Within  the  declarations  at  the  head  of  a  block,  all  access  to  a  primitive 
made  lexicographically  prior  to  the  new  declaration  of  a  primitive  are 
valid  and  will  access  the  old  primitive.   Furthermore,  the  types  of 
primitive  functions  must  be  maintained.   Therefore,  it  is  not  permitted 
to  change  ptr  (x)  from  a  pointer  primitive  to  a  string  primitive. 


Example : 

"begin 

integer  X[ 0:10000]; 

pointer  primitive  allocate  ( ) ; 

integer  A[0:100] 
end 

In  this  example,  an  implicit  call  on  the  old  primitive  "allocate"  is 
performed  to  allocate  the  array  "X" .   Note  that  the  reserved  word 
primitive  is  used  in  place  of  the  reserved  word  procedure  when 
redefining  a  primitive.   Once  "allocate"  is  redefined,  all  allocation 
will  be  performed  by  the  new  primitive.   Thus  the  array  "A"  will  be 
allocated  by  the  new  primitive.   Since  the  only  space  addressable 
by  the  primitive  "allocate"  is  the  array  "X",  "A"  must  be  allocated 
inside  of  "X" .   Furthermore,  any  processes  which  are  appended  or 
initiated  (but  not  spawned)  within  the  scope  of  the  new  allocate  must 
use  the  new  allocate. 

The  number  and  type  of  the  parameters  into  which  a  compiler 
will  map  an  allocate  statement  is  not  defined.   OSL/2  originally  had  a 
data  type  "core"  into  which  allocations  could  be  made.   This  facility 
was  deleted  because  it  restricted  the  class  of  addressing  schemes  allowed 
in  the  hardware.   In  order  to  permit  the  maximum  flexibility  for  future 
technological  developments,  such  as  cheap  content  addressed  memories,  the 
manner  of  allocation  and  the  format  of  the  parameters  are  left  undefined. 

Most  of  the  arithmetic  function  primitives  will  not  be  changed. 
The  allocate,  release,  and  terminate  primitives  might  be  in  a  normal 
system.   The  primary  use  of  the  primitive  construct  will  be  to  define 
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additional  primitives   for  use  at  higher  levels   in  a  multi-layer  operating 

system. 

2.6.   Compile  Time  Facilities 

Operating  system  codes  have  a  strong  need  for  a  parameterized 
macro  facility  and  some  conditional  compilation.   These  facilities  allow 
a  significant  isolation  of  changeable  parameters  and  they  also  allow  a 
programmer  to  write  and  document  a  single  system  that  has  several, 
possibly  conflicting,  portions  that  are  conditionally  inserted  on  an 
installation  by  installation  basis. 

The  define  facility  used  in  Burroughs  B5500  [23]  and  B65OO  [2k]   ALGOL 
is  used  in  a  slightly  modified  form  in  OSL/2.   One  may  define  a  string 
value  for  an  identifier. 
Examples : 

define  ABC  =  begin 

A  «-  0; 
B  «-  N; 
C  -*■  M 
end  #; 
define  Xsize  =  100#,Ysize  =  37#; 
The  "="  and  "#"  bracket  the  string.   The  appearance  of  the  defined 
identifier  later  in  the  block  in  which  it  is  defined  will  cause  the 
identifier  to  be  replaced  by  the  characters  enclosed  in  the  "="  "#" 
brackets . 

In  the  above  example,  A  ■*■  Xsize  is  equivalent  to  A+  100. 
Defined  identifiers  may  appear  in  defines  nested  to  any  level. 
Furthermore,  defines  may  appear  within  defines,   "define  identifiers  .  .#" 
is  considered  a  bracket  construct  that  may  appear  in  a  define. 
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Defines  may  have  parameters. 
Examples : 

define  add  (A,B)  =  ($A)+($B)#; 

define  concat  (A,B)  =  "$A$B"#; 
In  the  above  cases,  add  (lO*L,13)  is  equivalent  to  (10*L)+(13)  and 
concat  (ABC,DEF)  is  equivalent  to  "ABCDEF". 

The  dollar  sign  ($)  denotes  compile  time  facilities.   One 
may  declare  compile  time  Booleans ,  integers ,  and  strings . 
Example : 

$integer  A,B,C,D  «-  10  ,E; 

$string  (S1,S2)  +-  MT; 
These  variables  must  be  preceeded  by  the  dollar  sign  when  they  are 
used.   An  assignment  to  a  compile  time  variable  is  made  at  the  time 
it  is  scanned.   The  expression  assigned  must  therefore  be  calculable 
at  compile  time.   A  compile  time  variable  which  appears  in  an  expression 
is  replaced  by  a  constant  whose  value  is  the  same  as  the  current  value 
of  the  variable. 
Examples : 

$A  «-  $D+1; 

X  «-  10  +  $A*$D;  is  equivalent  to  X  <-   10  +  11*10; 
Most  OSL/2  statements  may  be  compile  time  statements. 
Examples : 

$if  $A<10 

then  . . . 


else 


fi 


$for  $A  «-  1,13,2  do  X[P(QRZ),$A]  «-  L*13 
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In  both  of  the  above  examples ,  the  $if  and  $for  did  not  require  the 
"$".   In  the  if  case,  the  expression  being  tested  "was  a  constant, 
therefore,  a  good  compiler  would  only  have  compiled  one  branch  of  the 
conditional  anyway.   In  the  case  of  the  for  statement,  the  use  of 
a  compile  time  variable  as  the  iteration  control  variable  indicated 
that  the  statement  was  a  compile  time  statement.  The  for  statement 
is  equivalent  to: 

X[P(QRZ),l]  •«-  L*13; 

X[P(QRZ),13]  +   L*13; 

X[P(QRZ),2]  «-  L*13 
while. . .do. . . ,  do. . .until. . . ,  and  for. . .times  do. . .  always  must  be 
preceded  by  a  dollar  sign  if  they  are  compile  time  statements. 
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Chapter  3 
System  Measurement,  Modification,  and  Debugging  in  an  0SL/2  Environment 

Operating  systems  are  not  static.   They  are  constantly  being 
changed.   These  changes  either  improve  the  efficiency  of  the  system, 
add  features  to  it,  or  correct  errors.  , 

When  new  systems  are  coded,  the  most  significnat  question 
facing  the  implementor  is:   "How  well  does  it  run?"  This  question  is 
answered  predictively  by  a  closed  form  analysis  of  the  system  or  by 
simulation.   Once  implemented,  the  question  is  answered  by  measuring  the 
system. 

Due  to  the  complex  interaction  of  system  modules,  and  the 
stochastic  nature  of  the  inputs  a  closed  form  prediction  of  the  perform- 
ance of  an  entire  operating  system  is  usually  not  possible.   However, 
many  individual  modules  in  a  system  may  be  amenable  to  some  greater  or 
lesser  degree  of  analysis. 

Simulation  is  more  commonly  used  when  predictive  estimates  of 
an  entire  system's  performance  are  desired.   Unfortunately,  it  is  usually 
very  difficult  to  accurately  estimate  the  loads  on  a  system.   If  one 
assumes,  however,  that  an  accurate  model  of  the  system  is  available,  then 
it  is  certainly  reasonable  to  run  this  model  in  a  variety  of  modes  and 
under  a  variety  of  loads.   In  this  manner,  the  areas  of  competence  and 
incompetence  of  the  system  can  be  discovered  a  priori.   This  information 
can  then  be  used  by  the  managers  of  an  installation  to  make  the  loads  place- 
on  a  system  fall  in  the  area  of  the  operating  system's  greatest  competence 

The  strict  isolation  of  processes  and  the  nature  of  the  synch- 
ronizing primitives  P  and  V  in  OSL/2  make  OSL/2  a  reasonable  simulation 
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language.   Therefore,  it  is  possible  to  avoid  a  separate  simulation  step 
by  using  OSL/2  for  both  the  simulation  and  the  final  system  code. 

OSL/2  has  no  concept  of  an  interrupt.   Systems  coded  in  OSL/2 
are  command  driven.   That  is,  they  consist  of  separate  processes  for 
each  task  to  be  performed.   Each  task  uses  the  P  and  V  operators  to  get 
and  dispatch  work.   Therefore,  each  process  is  either  waiting  for  a 
command  to  begin  work  (P  operation),  issuing  a  command  to  another  task 
to  begin  work  (V  operation),  or  performing  its  function. 

Since  OSL/2  systems  have  well  defined  interfaces  to  both  the 
outside  world  and  internal  processes,  it  is  a  relatively  straight- 
forward (although  frequently  tedious)  procedure  to  simulate  an  OSL/2 
coded  system  in  total  or  in  part  by  appropriately  setting  global  variables 
and  issuing  P  and  V  operations  to  the  various  semaphores  of  the  system. 

The  generalized  data  access  facilities  of  OSL/2  allow  access 
to  every  transaction  performed  on  any  data  declared  with  this  facility. 
Therefore,  one  may  specify  virtually  any  information  he  wants  recorded 
on  access  data,  the  manner  of  recording,  and  the  manner  of  read  out.   Since 
this  is  done  only  once,  in  the  access  definition,  a  single  place  is  pro- 
vided  where  all  measurements  of  queues,  stacks,  tables,  etc.  may  be 
inserted  and  deleted.   This  facility  allows  the  system  designer,  subject 
,  only  to  the  constraint  of  the  Heisenberg  Uncertainty  Principle,  to  readily 
;  measure  an  OSL/2  coded  system  a  priori  during  simulation  or  a  posteriori 
after  implementation. 

Changes  to  an  OSL/2  coded  operating  system  may  take  place  in 
j  several  ways.   The  generalized  data  access  facilities  provide  an  easy 
way  to  change  queuing  algorithms  and  add  special  features  to  complex  data 
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structures.   One  may  add  new  facilities  by  adding  a  new  primitive  to  an 
existing  system  or  by  introducing  a  new  layer  to  the  system  and  adding 
the  additional  feature  in  the  new  layer.   This  latter  technique  is 
especially  desirable  if  one  has  a  well  functioning  piece  of  code  which  he 
does  not  want  disturbed.   Adding  the  new  layer  to  the  system,  leaves 
the  original  system  undisturbed.   Furthermore,  the  new  layer  is  trans- 
parent to  layers  above  which  are  using  the  primitives  in  the  older, 
lower  system. 

Since  OSL/2  code  can  express  only  nested  loops  and  procedures 
and  cannot  express  interlocking  loops  with  deliberate  transfers  to         i 
various  portions  of  code  and  returns  via  indexed  and  non  indexed  go  to's, 
the  code  tends  to  be  more  clearly  structured  and  therefore  easier  to 
debug.   However,  it  is  still  possible  to  write  bad  code  and  design  bad 
logic.   OSL/2  does  not  attempt  to  solve  the  coding  or  logic  error  problem. 
The  generalized  data  access  facilities  provide  a  sophisticated  data  moni- 
toring tool  of  considerable  power.   However,  no  special  debugging  facili- 
ties have  been  added  to  the  language. 

Balzar  has  done  some  excellent  work  with  EXDAMS  [20]  on  a  360 
PL/l  system.   EXDAMS  provides  a  method  of  keeping  a  history  of  a  program's 
execution.   After  a  run  is  completed,  this  history  is  coupled  to  a  graphic 
display  which  is  used  to  selectively  examine  variables  and  run  the  program 
backwards  as  well  as  forwards  to  discover  where  errors  lie.   This  history 
has  links  between  the  execution  variable  and  time  space  and  the  source 
program  space.   These  links  are  used  to  immediately  see  which  program 
statements  caused  the  actions  indicated  on  the  graphic  display.   OSL/2 
is  amenable  to  this  treatment  as  are  most  higher  level  languages. 
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In  general  OSL/2  appears  to  be  a  powerful  language  for  coding, 
expanding,  and  measuring  an  operating  system.   While  OSL/2  tends  to  be 
cleaner  and  thus  easier  to  debug,  special  debugging  features  have  not 
been  provided. 
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Chapter  k 
The  Hardware  Requirements  of  OSL/2 

It  was  the  original  intention  of  the  author  to  design  and 
simulate  an  OSL/2  machine.   That  is,  a  machine  especially  suited  to 
executing  OSL/2  code.   This  project  was  not  completed  for  three  reasons. 
First,  the  amount  of  machine  time  required  to  build  and  run  a  simulator 
was  not  available.   In  fact,  the  author  was  requested  to  sharply  reduce 
the  machine  time  spent  building  an  OSL/2  compiler.   Second,  the  human 
time  required  to  design  the  OSL/2  machine  in  detail  and  to  code  a  simu- 
lator was  significantly  underestimated  by  the  author.   Third,  since  the 
author  had  gone  through  the  exercise  of  designing  the  language  with  an 
actual  implementation  in  mind,  it  is  doubtful  that  the  completion  of  an 
implementation  would  significantly  alter  the  concepts  in  OSL/2. 

The  author  actually  wrote  OSL/2  code,  wrote  an  OSL/2  compiler, 
and  designed  the  language  with  a  particular  hardware  implementation  in 
mind.   The  coding  of  a  compiler  and  the  resulting  object  machine  consider- 
ations had  their  primary  impact  on  the  syntactic  description  of  the  lan- 
guage.  Similarly,  the  production  of  OSL/2  code  changed  the  syntax  again. 
The  only  concept  significantly  altered  was  the  ability  to  pass  whole 
declarations  into  access  definitions  as  parameters  to  be  supplied  at 
access  variable  declaration  time.   The  intent  was  to  allow  the  programmer 
to  describe  a  data  independent  access  technique  and  introduce  the  actual 
types  of  data  after  the  definition  of  the  access  type.   For  example,  this 
would  enable  a  programmer  to  define  a  first  in  first  out  queue  and  at 
declaration  time  describe  the  data  being  entered  and  removed  from  the  queu< 
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This  proved  to  "be  quite  difficult  to  implement.   Later  codes  showed  that 
this  feature  "was  still  desirable  but  the  language  was  not  badly  hurt  by 
its  absence. 

The  author  had  had  experience  with  a  large  number  of  machines 
of  first  through  fourth  generation  architecture.   The  ease  with  which 
one  could  compile  code  for  Burroughs  machines  and  the  similarity  between 
higher  level  language  constructs  and  the  machine  operations  in  the  B5500 
and  B65OO  originally  prejudiced  the  author  toward  those  designs. 

The  OSL/2  compiler  assumed  that  the  object  machine,  like  a 
B65OO,  was  a  zero  address  stack  machine  with  each  word  in  memory  tagged 
to  indicate  the  type  of  its  contents.   Furthermore,  a  block  level  relative 
addressing  scheme  with  arrays  indexed  via  B6500-like  descriptors  was 
assumed  [2l].   This  made  the  object  code  relatively  easy  to  produce. 
However,  the  author  soon  discovered  that  the  isolation  of  types  (i.e. 
they  could  not  be  mixed  in  expressions)  and  the  explicit  coding  of  type 
transfer  functions  made  the  use  of  tagged  words  to  distinguish  types 
unnecessary.   Furthermore,  since  OSL/2  procedure  declarations  require 
the  complete  specification  of  all  parameters,  the  compiler  can  check 
at  compile  time  for  the  erroneous  passing  of  parameters  and  procedures 
to  procedures.   Thus  the  compiler  knows  at  all  times  exactly  which  types 
it  is  working  with.   In  this  case,  most  of  the  type  tags  on  words  were 
necessary  only  to  protect  the  system  from  compiler  errors  and  not  to 
aid  the  compiler. 

Virtually  all  of  the  OSL/2  constructs  can  be  implemented  on  any 
machine  upon  which  FORTRAN  may  be  implemented.   The  exceptions  are  call 
by  name  procedure  parameters  and  the  process  control  primitives. 
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With  the  exception  of  the  Burroughs  compilers ,  call  by  name 
has  been  a  problem  since  it  was  first  introduced  in  ALGOL  60.   The  normal 
solution  has  been  the  "thunk".   Since  call  by  name  parameters  are  evaluated 
each  time  they  are  referenced  in  a  procedure,  a  procedure  call,  or  "thunk", 
is  substituted  for  the  reference.   Then  each  time  a  store  or  fetch  is  to 
be  made,  this  procedure  is  executed  to  produce  an  address  or  value.   On 
the  B5500  and  B65OO  a  hardware  operand  call  is  made.  The  tag  bits  of  the 
operand  tell  the  computer  whether  a  simple  fetch  or  procedure  entry  and 
complex  expression  analysis  must  be  performed  to  produce  a  value.   The 
operand  call  instruction  is  much  more  complex  than  the  most  intricate 
instructions  on  conventional  machines.   It  does,  however,  replace  a  "thunk"  ' 
with  a  single  hardware  operator  of  much  greater  efficiency. 

Call  by  name  is  a  concept  absent  from  most  languages.   It  is 
included  in  OSL/2  for  two  strong  reasons.   It  allows  the  use  of  side 
effect  processes  in  a  simple  way.   The  concept  of  a  continuously  evaluating 
expression  for  use  in  calculating  process  priorities  is  an  example  of  how 
this  feature  could  be  well  used  in  operating  system  codes.   Also,  it  is 
the  nature  of  access  data  that  they  produce  complex  side  effects  when 
they  appear  in  expressions.   A  call  by  name  concept  is  required  if  expres- 
sions containing  access  variables  are  to  be  passed  to  procedures. 

In  order  to  produce  an  efficiently  running  OSL/2  machine  it  is 
considered  essential  that  the  hardware  provide  a  call  by  name  facility. 
Such  a  facility  seems  to  be  easier  to  implement  on  a  stack  machine  than 
a  normal  multiregister  machine.   This  is  because  of  the  ease  with  which 
evaluation  procedures  may  be  automatically  entered  and  the  process  environ- 
ment saved  in  the  stack.   To  enter  a  procedure  and  save  the  process 
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environment  is  a  more  difficult  matter  in  a  register  machine  where  the 
process  environment  may  be  determined  by  an  arbitrary  number  of  the 
registers . 

The  problem  of  inter  layer  communication  is  severe.   No  hard- 
ware known  to  the  author  is  capable  of  both  allowing  access  to  variables 
in  the  system  at  all  levels,  yet  rigorously  assuring  that  variables  are 
not  inadvertently  altered  by  an  erroneous  compiler  or  operating  system. 
Ordinary  relocation  and  bounds  protect  or  virtual  memory  addressing 
will  not  work. 

If  some  layer  of  the  operating  system  makes  a  mistake  while 
setting  the  bounds  register  or  relocation  register — all  is  lost.   In  a 
similar  manner,  a  virtual  memory  system  might  have  an  error  made  while 
its  segment  table  was  set  up.   However,  a  few  extraordinary  techniques 
help  solve  these  problems.   For  example,  the  register  loading  or  segment 
address  loading  instruction  could  be  made  a  special  operator  that  worked 
only  with  an  already  set  relocation  and  bounds  register  or  an  existing 

segment  table.   The  operator  could  be  designed  to  not  create  any  segment 

i 
address  or  register  setting  that  would  violate  the  existing  settings. 

':  Thus  one  could  guarantee  that  higher  layers  of  the  system  would  not 
,  inadvertently  bomb  lower  layers  if  the  lower  layers  properly  initiated 
the  upper  layers.   Techniques  like  these  can  be  used  to  remove  the  concept 
of  priviledged  instructions  from  a  machine.   Each  operator  is  constructed 
so  it  has  a  built  in  check  that  prevents  it  from  violating  its  own 
environment.   Thus  any  operator  (instruction)  in  the  machine  can  be  allowed 
at  any  level. 

Where  this  scheme  falls  on  hard  times  is  in  the  passing  of  para- 
meters between  system  layers.   How  does  system  layer  three  pass  a  file 
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and  an  integer  to  system  layer  ten  for  its  use  without  allowing  access  to 
all  of  layer  three's  variables?  The  setting  of  protection  bits  clearly 
gets  immediately  out  of  hand  if  layer  3  frequently  gets  control  of  layer 
10.   Then  the  setting  and  resetting  of  protection  bits  becomes  a  very 
significant  overhead. 

The  author  feels  that  the  solution  to  these  problems  lies  in  a 
suitably  defined  addressing  scheme.   An  addressing  scheme  where  it  is 
simply  not  possible  to  generate  an  address  outside  of  one's  allowed  space. 
The  addressing  scheme  will  be  described  in  several  steps.   First 
in  terms  of  a  single  program,  then  in  terms  of  a  program  with  several 
asynchronous  processes,  and  finally  in  terms  of  a  multilayered  operating 
system. 

A  stack  machine  is  assumed  with  several  level  registers.   Each 
level  register  points  to  the  base  address  of  a  block  level  in  an  OSL/2 
program. 
Example : 

—  begin 

integer  a,b,c; 
Boolean  X; 
—  begin 

string  s,m,y; 


o 

M 
o 
o 


•—  end; 


1 —  end 
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BASE   OF 
RELATIVE 

STACK 

ADDRESS 

LEVEL    REGISTER, 
DISPLACEMENT   COUPLE 

6 

(1,2) 

5 

(1,1) 

4 

(1,0) 

3 

(0,3) 

2 

1 

(0,2) 
(0,1) 

0 

(0,0) 

BASE 

OF   STACI< 

!    POINTER 

STACK 


LEVEL    REGISTER 


LEVEL  I  =  BASE +  4 


LEVEL  0  =  BASE+O 


Figure  1.   Variable  stack  while  in  block  1. 


In  order  to  address  the  variable  "a"  in  block  0  the  address 
couple  (0,0)  would  be  used  -  level  0,  displacement  0.   To  address  the 
variable  "c" ,  the  address  couple  (0,2)  is  used  -  level  0,  displacement 
2.   Similarly,  the  variable  "m"  in  block  1  is  (l,l)  -  level  1,  displace- 
ment 1.   One  could  even  put  bounds  on  each  level  register  to  prevent 
inadvertent  addressing  into  the  next  higher  level.   Then  one  would  have 
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a  set  of  miniature  relocate  and  bounds  registers.   Actually,  this  is  not 
necessary  but  desirable.   In  fact,  the  entire  program  stack  is  an  array 
with  bounds  protect  and  a  base  of  stack  pointer.   Furthermore,  the 
distinction  between  levels  is  made  more  clear  by  inserting  special  data 
into  the  stack  at  each  break  in  a  level  to  indicate  the  old  value  of  a 
level  register.   This  is  necessary  when  doing  recursion.   This  additional 
data  is  used  to  pass  parameters  to  procedures. 
Example : 

—  begin 

integer  a,b,c; 

procedure  addl  (x,y) ;  integer  x,y; 
—  begin 

integer  Z; 
Z  «-  1; 
x  ■+-  y+Z 
•—  end  addl : 


—  begin 


integer  m 


—  begin 


integer  n 


i—  begin 


en 


integer  r ,s ; 


addl  (r,m) 


•—  end 


*—  end 


1 —  end 
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In  this  example  the  block  levels  have  been  numbered.   The 
procedure  "addl"  creates  variables  at  level  1,  but  it  is  passed  variables 
from  level  3  and  level  1.   It  is  not  possible  for  a  procedure  running  at 
level  n  to  use  level  n+1  or  higher  level  registers.   Furthermore,  it  is 
not  possible  for  the  procedure  "addl"  to  maintain  two  level  1  registers 
-  one  to  address  its  own  variable  "Z"  and  one  to  address  the  actual 
parameter  "m" .   To  bypass  these  problems,  base  of  stack  relative  address- 
ing is  used  to  pass  the  parameters. 

By  using  base  of  stack  relative  addressing  it  is  possible  to 
create  indirect  reference  words  that  can  be  used  through  any  number  of 
recursions.   To  enter  the  procedure  in  the  above  example  an  operator  was 
executed  to  leave  space  to  save  level  register  1.   Then  another  operator 
was  executed  to  create  an  indirect  reference  word  to  "r".   This  was  repeated 
for  "m".   Finally  the  procedure  entry  operator  was  executed  to  relink  the 
level  register  and  enter  a  new  code  segment.   So  far  this  is  very  similar 
to  the  B65OO  manner  of  addressing  and  procedure  entry. 

Things  start  to  get  sticky  when  procedures  are  appended  as  sep- 
arate asynchronous  processes  rather  than  executed  in  line.   In  this  case 
there  must  be  several  stacks  (one  for  each  appended  process)  each  with  the 
same  base  stack.   If  the  procedure  "addl"  had  been  appended  in  the  last 
example  there  would  have  been  two  processes  running — each  with  its  own 
set  of  level  registers  to  define  its  environment. 

Note  in  Figure  3  that  the  level  0  register  in  the  appended  process 
points  to  level  0  in  the  main  process.   Therefore  the  main  program  and 
the  appended  procedure  both  reference  the  same  level  zero  variables  "a", 
b  ,  "c".   However  the  level  1  registers  in  each  process  are  different  and 
reference  different  variables. 
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In  addition  to  the  array  of  level  registers,  an  array  of  stack 
fragment  registers  is  introduced.   Now  the  operator  that  translates  level 
displacement  addresses  into  stack  displacement  indirect  reference  words 
not  only  produces  a  stack  displacement  but  also  produces  a'  stack  frag- 
ment index  in  the  indirect  reference  word.   If  yet  another  "addl"  were 
appended  at  this  point,  it  would  also  receive  separate  arrays  of  level 
registers  and  stack  fragment  registers.   The  level  0  and  stack  0  registers 
would  point  to  the  same  place  in  both  processes  but  each  of  the  appended 
processes  would  have  different  level  1  and  stack  1  pointers. 

If  a  process  now  develops  a  level  displacement  address,  it 
must  point  to  a  legitimate  address  for  the  process.   There  is  no  way  a 
variable  in  another  appended  process  or  separate  program  can  be  addressed 
with  a  level  displacement  address. 

Similarly  stack  displacement  addresses  used  for  formal  para- 
meters, cannot  be  created  that  point  to  illegal  variables  since  they 
were  all  created  at  some  time  from  a  legitimate  level  displacement  address 
Clearly  stack  fragment  1  of  the  appended  procedure  "addl"  provides  no  way 
of  referencing  a  stack  fragment  of  another  appended  "addl"  or  another 
program.   The  level  registers  and  stack  registers  can  be  initialized 
using  the  environment  checking  techniques  discussed  earlier.   Therefore 
the  basic  integrity  of  the  values  in  the  registers  can  be  assured. 

This  is  all  fine  for  assuring  a  proper  addressing  space  for  a 
single  multiprocess  program  or  several  running  together.   The  problem  now 
is  to  insure  the  integrity  of  the  addressing  space  between  operating 
system  layers . 
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LAYER   POINTERS 


-**> 


STACK    FRAGMENT   POINTERS 


I 


h 


STACK 
FRAGMENTS 


INDIRECT   REFERENCE   WORDS   USE    THE   ADDRESS 
TRIPLE    (LAYER,  STACK,  DISPLACEMENT) 


LEVEL    POINTERS 

STACK 

FRAGMEN 

E  STANDARD   ADDRESSING    TECHNIQUE    USES   LEVEL    DISPLACEMENT  COUPLES. 
HE   LEVEL   POINTER   CONTAINS   ALL   REQUIRED   STACK   FRAGMENT  REFERENCES. 


Figure   h.      Final  addressing  scheme. 


76 


To  do  this  another  array  is  introduced,  the  layer  array. 
Furthermore ,  the  processor  is  given  the  knowledge  of  the  layer  at  which 
it  is  operating  (This  is  just  part  of  the  initiate  or  restart  operator.). 
When  an  indirect  reference  word  is  created,  the  operator  also  inserts 
the  current  system  layer  as  well  as  the  stack  fragment  and  stack 
displacement  into  the  word. 

A  complete  set  of  layer,  stack  fragment,  and  level  pointers 
defines  the  process  environment  (cf.  Figure  k) .   Since  higher  layers 
of  the  operating  system  cannot  create  indirect  reference  words  that  point 
into  lower  layers,  the  higher  layers  have  access  only  to  the  data  in  the 
lower  layers  that  were  passed  to  the  higher  layers  as  actual  parameters. 
But  to  those  variables  they  have  direct  access  as  if  they  were  in  their 
own  layer.   If  one  makes  the  final  requirement  that  indirect  reference 
words  are  tagged  so  that  only  special  operators  may  access  them,  the 
integrity  of  the  entire  system  is  assured.   Furthermore,  foreign  programs, 
appended  processes,  and  layers  are  so  arranged  that  no  possible  address 
can  be  created  to  reference  them.   Thus  they  are  removed  from  the  address 
space. 

It  should  be  noted  that  this  scheme  is  not  unreasonable.   The 
idea  of  the  stack  fragment  array,  stack  fragments,  and  level  registers 
are  used  on  the  B65OO.   However  the  stack  fragment  array  is  a  single 
array  102U  long  which  contains  every  process  in  the  machine.   Thus  the 
addressing  spaces  of  programs  are  not  disjoint.   In  order  to  address  a 
second  program  a  stuffed  indirect  reference  word  specifying  its  stack 
number  would  suffice.   The  OSL/2  concept  makes  this  array  part  of  the 
environment  of  each  process  thus  separating  the  address  spaces.   The 
further  addition  of  the  layer  array  is  straight  forward. 
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The  passing  of  information  between  layers  is  demonstrated  to 
be  feasible.   The  communication  of  semaphores  as  formal  parameters  is 
an  obvious  use  of  this  interlayer  communication.   The  problem  of  the 
addition  and  changing  of  primitives  does  not  require  esoteric  hardware. 
Once  interlayer  addressability  is  defined,  this  problem  falls  under 
standard  linkage  editor  techniques. 

In  conclusion,  OSL/2  algorithmic  techniques  do  not  make  severe 
requirements  on  the  hardware  architecture.   However,  the  access  variables 
imply  a  call  by  name  facility  which  does  require  specialize  hardware  for 
efficient  processing.   The  layering  facilities  do  place  severe 
restrictions  on  the  hardware  and  require  careful  attention  to  the  address- 
ing problem. 
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Chapter  5 
Conclusions 

The  data  access  techniques  and  process,  control  concepts  provide 
OSL/2  with  the  ability  to  create  and  manipulate  queues  and  tables  and  to 
control  multiple  processes  in  a  multilayered,  hierarchial  operating 
system.   The  procedure  parameter  specification  facilities  (keywords 
and  defaults)  are  an  integral  part  of  these  facilities  and  considerably 
enhance  the  readability  of  the  language. 

A  system  measurement  capability  is  provided  as  a  side  effect 
of  the  data  access  facilities.   The  strong  concepts  of  environment  plus 
the  measurement  capability  makes  OSL/2  a  language  suitable  for  predictive 
system  simulation  as  will  as  implemented  system  measurement. 

OSL/2  implies  a  command  driven  operating  system.   That  is,  a 
system  with  multiple  processes  each  either  executing  or  else  waiting 
for  a  command  (P  operation)  to  continue.   There  is  no  interrupt  concept 
in  OSL/2.   In  general,  command  driven  systems  (e.g.,  the  "THE"  system  [10] 
and  the  ILLIAC  IV  system  [11,12])  must  have  well  defined  structures  in 
order  to  work  in  the  command  driven  environment.   Such  systems  are  there- 
fore more  amenable  to  analysis,  modification,  and  debugging. 

The  power  of  the  general  data  access  facilities  is  enormous. 
They  allow  the  specification  and  manipulation  of  complex  concepts  as  if 
they  were  primitive  in  the  language.   They  further  isolate  the  manipulation 
of  special  purpose  constructs  like  queues  and  tables  to  a  single  declaratio 
where  access  algorithms  can  be  readily  changed  without  touching  any  other 
portions  of  code.   This  facility  specifies  an  access  technique.   The  inter- 
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pretation  of  parameters  and  array  information  in  the  declaration  and 
subscripts  in  statements  and  expressions  are  subject  to  programmer 
control.   This  allows  a  programmer  to  write  his  own  semantics  for  variable 
accessing  and  control.   Simple  queues,  complex  tables,  switch  files, 
and  even  formatted  I/O  have  been  generated  using  this  facility.   It  will 
take  a  significant  amount  of  actual  use  before  the  range  and  power  of 
this  technique  is  well  established. 

The  data  access  concepts  can  be  added  to  existing  languages 
like  ALGOL,  ESPOL,  and  PL/l.  Furthermore,  the  concepts  can  be  restricted 
and  implemented  in  such  a  way  that  call  by  name  hardware  is  not  essential 
for  their  use.  The  structure  definition  in  BLISS  [22]  is  an  example  of 
a  language  with  such  a  facility.  However,  adding  such  a  capability  to  an 
assembly  language  is  not  reasonable.  Assembly  language  does  not  have  the 
richness  of  structure  and  concepts  of  scope  that  permit  a  clean  implemen- 
tation. 

The  layered  system  concept  provided  by  OSL/2  is  the  most  diffi- 
cult feature  to  implement.   Special  hardware  is  certainly  required.   It 
is  not  recommended  for  implementation  on  current  machines. 

There  may  be  one  desirable  concept  left  out  of  OSL/2.   There 
is  no  primitive  concept  of  a  list  in  the  syntax.   Most  lists  are  easy  to 
build  and  maintain  via  the  access  techniques.   However  the  concept  of  a 
written  list  is  not  available.   This  was  important  when  writing  formatted 
I/O.   The  desirable  form  of  a  read  statement  appeared  to  be  read 
( <file> ,<format  string> ,<list> )  where  <list>  could  be  a  list  of  identifiers 
or  expressions  separated  by  commas.   Instead  of  doing  work  this  way, 
separate  "readO",  "readl" , . . . ,"readn"  procedures  would  be  required  to 
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read  0,  l,...,n  variables  with  "read"  reserved  for  handling  a  list 
manipulated  via  the  access  facility.   The  author  had  used  such  a 
scheme  in  ALGOL  60  on  the  GE  635.   In  general,  it  "was  messy  and  one 
would  continually  change  a  "readk"  to  a  "readn"  to  reflect  a  change 
in  his  list.   Eventually,  he  gave  up  and  went  to  the  list  form  and 
declared  many,  many  lists. 

While  the  list  is  not  incompatible  with  OSL/2,  it  was  left 
out  in  an  effort  to  keep  an  already  large  language  from  getting  com- 
pletely unmanageable.   Lists  can  be  added  later  if  really  needed.   The 
author  feels  that  data  types  like  pattern  also  fall  into  this  category. 
They  were  included  only  to  document  the  compatibility  of  the  SN0B0L 
pattern  matching  statement  with  an  ALGOL-like  block  structured  language. 
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Appendix  A 
A  Reference  to  OSL/2  Syntax  and  Semantics 

I.   Introduction 

OSL/2  is  a  "block  structured,  Algol-based  language  designed  for 
the  specification  of  operating  systems.   OSL/2  is  a  follow-on  language 
to  OSL  (Operating  System  Language)  •which  was  designed  and  documented  by 
Alsberg  and  Wells  [ll]. 

OSL/2  is  not  designed  for  an  existing  machine,  nor  is  it  machine 
independent.   Rather,  OSL/2  is  designed  to  make  coding  easy  for  the  system's 
programmer,  and  it  is  also  designed  to  be  its  own  job  control  language. 
That  is,  a  user  in  an  OSL/2  system  may  use  OSL/2  to  control  his  job  flow. 
To  this  extent  OSL/2  is  recursive  in  the  system  sense.   One  may  describe 
new  operating  systems  that  exist  on  top  of  many  layers  of  other  operating 
systems . 

It  is  expected  that  OSL/2  will  be  best  implemented  on  a  machine 
specifically  designed  to  mirror  the  language  itself.   This  machine  will  be 
called  the  OSL  machine. 

In  the  syntactic  description  of  the  language,  the  ALGOL  60  report 
is  followed  as  closely  as  possible.   Furthermore,  every  attempt  is  made  not 
to  arbitrarily  introduce  new  terminology  for  concepts  and  entities  available 
in,  or  similar  to,  other  languages  like  ALGOL  60  and  PL/l. 

OSL  differs  sharply  from  ALGOL  60  in  the  following  points.   OSL 
includes  list  processing  and  generalized  data  access  techniques.   The 
programmer  may  specify  special  action  to  be  taken  when  a  fetch  or  store  is 
performed  on  data  declared  with  the  general  access  facilities.   These 


82 


facilities  allow  the  ready  specification  of  simple  and  complex  queues, 
tables,  and  stacks. 

Semaphores  replace  the  notion  of  interrupts .  Semaphores  are 
used  to  synchronize  processes. 

Strings  of  various  character  sizes  and  varying  lengths  can  be 
easily  manipulated  with  facilities  similar  to  those  offered  by  SNOBOL. 

In  OSL/2  a  process  is  any  program  or  procedure  that  is  capable 
of  running  asynchronously  with  any  other  process.   Processes  are  created 
in  one  of  three  ways.   Any  currently  running  OSL  process  can  "initiate" 
a  new  process.   Initiated  processes  expect  the  initiating  process  to  act 
as  their  operating  system.   The  initiating  process  must  explicitly 
indicate  those  procedure  (primitives)  within  itself  which  the  initiated 
process  has  access  to.   All  other  procedures  and  all  data  in  the  initiatin, 
process  are  not  addressable  by  the  initiated  process.   The  initiating 
process  may  elect  to  default  some  or  all  existing  operating  system 
facilities  to  a  lower  level  and  choose  only  to  add  new  facilities  for 
the  initiated  process. 

New  processes  may  be  "spawned"  by  an  initiated  process.   This 
facility  allows  a  running  program  to  notify  the  operating  system  that 
another  program  (process)  should  be  initiated  by  the  operating  system. 

Finally,  asynchronously  running  procedures  (processes)  may 
be  "appended"  to  currently  running  processes.   These  appended  procedures 
have  access  to  all  data  and  all  procedures  that  they  would  have  if  they 
were  executed  sequentially.   After  appending  a  procedure,  the  appending 
process  continues  execution  at  the  next  executable  statement  and  the 
appended  process  begins  and  continues  execution  at  the  same  time. 
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II.   OSL/2  Syntax  and  Semantics 
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1.   The  Purpose  and  Extent  of  the  Language 

OSL/2  is  designed  to  describe  the  flow  of  control  and  manipu- 
lation of  data  required  in  an  operating  system.   The  term  operating 
system  refers  primarily  to  supervisory  and  monitor  systems.   However, 
the  string  manipulation  facilities  make  OSL/2  a  powerful  compiler  writing 
language.   OSL/2  is  designed  with  the  deliberate  intent  to  make  the 
generation  of  well  structured  and  readable  codes  the  natural  coding  mode. 
To  this  end  the  "GO  TO"  statement  has  been  eliminated  and  the  use  of 
labels  had  been  restricted  to  encourage  self -documenting  code. 

A  simple  macro  facility  is  specified. 

The  data  base  includes  integers,  Booleans ,  strings,  semaphores, 
patterns,  and  pointers.   Furthermore,  structures,  in  the  PL/l  sense, 
are  available  and  extendible  data  access  facilities  have  been  provided. 
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2.   Basic  Symbols,  Identifiers,  and  Constants 
Basic  Concepts. 

The  reference  langauge  is  built  up  from  the  following  basic 
symbols : 

<basic  symbol>  : :=  <letter>  |  <digit>  |  <logical  value>  |  <delimiter> 
<special  symbol> 
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2.1.   Letters 

<letter>  : :=  A|B| C| D|E| F| G|H| I | J| K| L| M|n| 0|p| Q| R| S|t| U| V|w| X| Y| Z| a|b| c| d| e 

f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z 
This  alphabet  may  be  arbitrarily  restricted,  or  extended  with  any  other 
distinctive  character  (i.e.,  character  not  coinciding  with  any  digit, 
logical  value,  or  delimiter).   Letters  do  not  have  individual  meaning. 
They  are  used  for  forming  constants  and  identifiers. 
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2.2.   Digits 

<digit>  ::=  0|l|2|3|U|5|6|7|8|9 

<decimal  digit>  : :=  <digit> 

<binary  digit>  ::=  0|l 

<quarternary  digit>  : :=  0 1 1 j  2 1 3 

<octal  digit>  : :=  o| l| 2| 3| k\ 5| 6| 7 

<hexadecimal  digit>  : :=  0| l| 2 | 3| U| 5|6| 7| 8|9| a|b| c| D|e| F 

Digits  are  used  for  forming  integers,  constants,  and  identifiers 


89 


2.3.   Constant  Values 

<logical  value>  : :=  TRUE | FALSE 

< string  value>  : :=  MT 

<pointer  value>  : :=  NULL 

Logical  values  are  the  values  of  Boolean  quantities. 

The  string  value  MT  denotes  the  empty  string  of  length  zero. 

The  pointer  value  NULL  denotes  the  null  pointer. 
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2.k.      Delimiters 

<delimiter>    :  :=  <operator>    |    <separator>    |    <"bracket>    |    <declarator> 

<specificator> 
<operator>    : :=  <integer  operator>    \    <relational  operator>    |    <pattern  operate 

<logical  operator>    j    sequential  operator>    \    <string  operator> 

<integer  operator>    :  :-  .+    |    •>•    j  ■  *    |    /'  I    +    j    RDIV    |    CDIV    |    M0D 

<relational  operator>    ::=<!<=    |    =!>=    j    >    j    ^=    !    LSS    j    LEQ    I    EQL 

■ 
|    GEQ    |    GTE    |    NEQ 

<logical  operator>  : :=  EQV  |  IMP  j  0R  |  AND  |  N0T  j  X0R  |  <\,  j  ANDIF  |  0RIF 

<pattern  operator>  : :=  <vertical  bar> 

sequential  operator>  :  :=  IF  |  THEN  |  ELSE  |  FI  |  D0  |  SPAWN  |  APPEND 

|  INITIATE  j  TERMINATE  |  SUSPEND  |  RESTART  |  STEP  |  T0  |  BY 

|  UNTIL  |  WHILE  |  F0R  |  P  |  V  |  LEAVE  |  CASE  |  0F  |  ESAC 
<string  operator>  : :=  &  I  SAND  I  S0R  I  SN0T  j  SX0R 
<separator>  : :=  ,  |  .  j  :  j  ;  |  -e-  |  :=  |  C0MMENT  |  TIMES  j  $ 

%    \    I    \    <blank> 
<blank>  : :=  <single  space>  j  <blank>    <single  space> 
<bracket>  : :=  (  |  )  |  [  |  ]  |  BEGIN  |  END  |  '  |  "  |  {  |  }  |  # 
<declarator>  : :=  B00LEAN  |  INTEGER  |  STRING  |  P0INTER  |  ACCESS 

0N  jj  STRUCTURE  I  PR0CEDURE  |  N0DE  |  PR0CESS  j  FILE  j  PATTERN 

|  QUEUE  |  STACK  |  0WN  |  DEFINE  |  PRIMITIVE  |  SEMAPH0RE 
< specific at or>  : :=  VALUE  |  NAME  |  FIXED  |  F0RMAL  |  F0RWARD 
<vertical  bar>  : :=  | 

Delimiters  separate  the  various  entities  of  the  language.   In 
order  to  accept  input  from  common  restricted  alphabets,  the  following 
symbols  and  combinations  of  symbols  are  equivalent: 
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Standard  Symbols  Alternatives 

<  LSS 

<=  LEQ 

EQL 
>=  GEQ 

>  GTR 

^=  NEQ 

-«-  :  = 

<v  N0T 

'.:  what  follows,  only  the  left  hand  standard  symbols  are  used. 

Delimiters  have  fixed  meanings  which  will  he  explained  as  they 

r 

(■cur  in  various  constructs.   Delimiters  and  logical  values  are  considered 
tsic  symbols  of  the  language  and  have  no  relation  to  the  individual 
otters  of  which  they  are  composed.  Therefore,  the  words  which  constitute 

ic  symbols  are  reserved  for  specific  use  in  the  language. 
ik.l.      Spacing 

No  space  may  appear  between  the  letters  of  a  reserved  word.   At 
last  one  space  must  separate  a  multicharacter  delimiter  from  any  adjacent 
Itter  or  digit.   That  is,  any  two  basic  components  of  the  following  form 
.st  be  separated  by  <blank> . 

1.  Multicharacter  delimiter 

2.  Identifier 

3.  Logical  value 
k .   String  value 

5.  Pointer  value 

6.  Unsigned  integer 
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2.4.2.   Comments 

Comments  may  "be  inserted  in  the  program  without  effect  on  the 
program  structure.   The  folio-wing  conventions  hold: 

1)  {terminal  symbol }C0MMENT  {any  sequence  of  symbols  except;}  ; 
is  equivalent  to  {terminal  symbol} 

2)  %    {any  sequence  of  symbols  except  %}  %   is  equivalent  to 
<blank> 

3)  !  {any  sequence  of  symbols}  {end  of  line}  is  equivalent 
to  <blank> 

h)      END  {any  sequence  of  letters  digits  and  blanks}  is  equiva- 
lent to  END 

The  %   convention  has  precedence  over  all  other  comment  conventions 
No  comment  conventions  are  recognized  inside  strings. 

The  metalinguistic  notation  {...}  is  used  to  denote  the  terminal 
symbol  or  group  of  terminal  symbols  indicated  by  the  english  phrase 
enclosed  in  the  metalinguistic  braces. 
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2.5.  Special  Symbols 
<special  symbol>  : :=  _ 

The  underscore  is  completely  ignored  in  the  language  except 
vhen  it  appears  within  a  string.  The  underscore  is  used  in  identifiers 
and  constants  to  improve  readability. 
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2.6.   Identifiers 

2.6.1.  Syntax 

<identifier>    :  :=  <letter>    j    <identifier>   <letter>    j    <identifier>   <digit> 

2.6.2.  Examples 

Al 

PR0CESS0R_NUMBER 

TIME_LIMIT 

J0B23 

X 

2.6.3.  Semantics 

No  spaces  may  appear  within  identifiers.  The  underscore  "_" 
is  used  to  improve  readability,  but  is  not  part  of  the  identifier.   Thus 
"A_B",  "AB",  and  "A B"  are  all  the  same  identifier. 

Identifiers  are  used  to  identify  pointers,  events,  procedures, 
variables,  etc. 

Reserved  words  may  not  be  used  as  identifiers.   Otherwise, 
identifiers  may  be  chosen  freely. 

Identifiers  may  be  of  any  length.   However,  finite  implementation 
are  envisioned.   In  no  case  will  the  maximum  identifier  size  be  less 
than  fifteen  characters.   When  reduction  of  an  oversized  identifier  is 
required,  the  identifier  shall  be  reduced  by  the  following  algorithm: 

1)  n  is  the  maximum  identifier  length 

2)  if  n  is  even,  choose  n/2  characters  from  the  front  and  n/2 
characters  fro,  the  rear  of  the  identifier 

3)  if  n  is  odd,  choose  (n+l)/2  characters  from  the  front  and 
(n-l)/2  characters  from  the  rear  of  the  identifier. 
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2.7«      Constants 
2.7.1«      Integers 

2.7.1.1.  Syntax 

<unsigned  integer>  :  :=  <digit>  ;  <unsigned  integer>  <digit> 
<integer>  : :=  <unsigned  integer>  |  +  <unsigned  integer>  j  -  <unsigned  integer> 

2.7.1.2.  Examples 
1 
123j456_789_012 

+17 
-35_702 

2.7.1.3.  Semantics 
The  underscore  is  used  to  improve  readability  and  does  not 

alter  the  value  of  the  integer.      The  value  of  the  integer  is  its   decimal 

based  value. 

2.7.2.      Strings 

2.7.2.1.      Syntax 

<binary  string>    : :=  2'<binary  digit   string> ' 

I    2"<binary  digit   string>" 
quaternary  string>    :  :=   k '  <quaternary  digit   string>  ' 

1    V< quaternary  digit   string>" 
<octal  string>    : :=   8'<octal  digit   string> ' 

|    8"<octal  digit   string>" 
<decimal  string>    : :=  10'<unsigned  integer> ' 

j    10"<unsigned  integer>" 
<hexadecimal  string>    : :=  l6 ' <hexadecimal   digit   string> ' 

j    l6"<hexadecimal   digit   string>" 
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<binary  digit  string>  : :=  <binary  digit> 

<"binary  digit  string>  <binary  digit> 
<quaternary  digit  string>  : :=  <quaternary  digit> 

quaternary  digit  string>  <quaternary  digit> 
<octal  digit  string>  : :=  <octal  digit> 

<octal  digit  string>  <octal  digit> 
<hexadecimal  digit  string>  : :=  <hexadecimal  digit> 

I  <hexadecimal  digit  string>  <hexadecimal  digit> 
<character  string>  : :=  < symbol  string>  j  A  < symbol  string> 

j  E  <symbol  string>  |  B  <symbol  string> 
< symbol  string>  :  :=  "{any  string  of  symbols}"  j   '{any  string  of  symbols}'   !j 

I! 

<string>  : :=  <binary  string>  |  <quaternary  string>  |  <octal  string> 

I  <decimal  string>  j  <hexadecimal  string>  I  <character  string>  |  M! 
Each  quote,  identical  to  the  opening  quote,  which  is  placed 

■within  the  string,  must  be  presented  by  two  juxtaposed  quotes  of  the  same 

type  as  the  opening  quote . 

2.7-2.2.   Examples 

2 '011001101' 

i6'faeco628f? 

8"7310TTTT' 

"N0WS   THE  TIME" 

'WHAT"S  Y0UR  PR0BLEM? ' 

'T0  QU0TE:   "G0  H0ME!"' 

E"  (  $  §  %   ""?" 
2.7.2.3.   Semantics 

The  number  strings  described  are  used  as  masks  and  can  take  the 
positive  value  of  their  binary  representation  when  used  in  arithmetic 
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expressions.   A  decimal  string  is  semantically  equivalent  to  a  hexadecimal 
string. 

MI  is  the  universal  null  string  —  it  is  empty. 

Character  strings  are,  by  default,  eight  hit' ASCII  code.   The 
prefix  A  denotes  seven  hit  ASCII,  E  denotes  eight  hit  EBCDIC,  and  B  denotes 
6  hit  IBM  BCD.  Either  double  or  single  quotes  may  open  a  string.  A  string 
is  closed  hy  the  same  type  of  quote  which  opened  it. 
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3.   Expressions 

In  the  language ,  the  primary  constituents  of  the  program 

which  describe  algorithmic  processes  are  integer,  Boolean,  string,  pointer, 

pattern,  and  structure  expressions. 

<expression>  : :=  <integer  expression>   <Boolean  expression> 
<string  expression>   <pointer  expression> 
<structure  expression>   <pattern  expression> 
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,1.   Variables 

3.1.1.  Syntax 

<subscript  list>  : :=  <subscript  expression> 

I  <subscript  list> ,<subscript  expression> 
<subscript  expression>  : :=  <integer  expression>  ;  <actual  parameter> 
<substring  specification  :  :=  [<first  position>  :<n"umber  of  positions>] 

|  [<first  position> :<number  of  positions> :<size> ] 
<first  position>  : :=  <integer  expression> 
<number  of  positions>  : :=  <integer  expression> 
<size>  : :=  <integer  expression> 
<name>  : :=  <identifier>  j  <structure  first  part> .<identifier> 

|  <identifier>  [<subscript  list>] 

|  <structure  first  part> .<identifier>  [<subscript  list>] 
<structure  first  part>  : :=  <structure  name> 

j  <structure  first  part> .<structure  name> 
<structure  name>  : :=  <identifier>  i  <identifier>  [<subscript  list>] 
<pointer  name>  : :=  <name> 

<pointer  specifier>  : :=  <pointer  name> . | <pointer-specifier>  <pointer  name> . 
<variable>  ::=  <name>  j  <pointer  specifier>  <name> 

<string  variable>  :  :=  <variable>  |  <variable> .  <substring  specification> 
<structure  variable>  : :=  <structure  first  part> 

|  <pointer  specifier>  <structure  first  part> 

3.1.2.  Examples 

A 

A[23] 

USER  NAME. [1:20] 
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STUDENT_ENTRY[N*2+K] .ID_N0 

P.LIST_ELEMENT 

X.[2T:3] 
3.1.3.   Semantics 

Variables  name  data  quantities.   A  variable  may  specify  single 
quantities,  multidimensional  arrays,  or  whole  data  structures. 

When  a  variable  specifies  an  array,  each  subscription  expression 
is  evaluated  and  used  to  determine  which  array  element  is  specified.   The 
value  of  a  subscripted  variable,  one  or  more  of  whose  subscripts  are  out 
of  bounds,  is  undefined.   If  an  out  of  range  subscript  is  calculated,  an 
"index"  trap  occurs.   Access  variables  may  have  actual  parameters  passed 
through  the  subscript  list.   In  this  case,  the  interpretation  of  the 
subscripts  is  given  by  the  associated  access  definition. 

A  variable  which  specifies  a  string  quantity,  may  be  followed 
by  a  substring  specification.   The  substring  specification  indicates 
what  is  the  first  character  desired  in  the  string  and  how  many  contiguous 
characters  to  the  right  of  the  first  character  (including  the  first 
character)  are  desired.   The  character  positions  in  a  string  are  numbered 
from  left  to  right  beginning  at  zero.   If  a  size  parameter  is  specified, 
the  new  character  size  is  used  instead  of  what  was  declared  for  the 
string. 

The  symbol  "."  is  used  in  variables  to  exactly  define  which 
quantity  is  desired  when  a  pointer  is  specified.   If  P  is  a  pointer, 
then  "P"  denotes  the  pointer  P  and  "P."  denotes  the  quantity  pointed 
to  by  P.  This  use  of  the  "."  is  consistent  with  structure  addressing. 
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Each  higher  level  identifier  used  in  a  structure,  that  is  each  identifier 
that  does  not  identify  a  primitive  data  item,  may  be  viewed  as  a  pointer, 
e.g. 

STRUCTURE  J0B    (INTEGER  ID,   TIME0N,   TIME0FF; 

STRING  NAME    ( 30 ) ; 

STRUCTURE   IDCARD_PARMS( INTEGER  TIME, LINES) ) ; 
"J0B"   and  "IDCARD_PARMSM   are  higher  level  identifiers   in  this   structure. 
Thus   one  would  address   "LINES'*   as   follows: 

J0B . IDCARD_PARMS  . LINES 
If  "J0B"  were   a  structure  which  was   repeated  many  times   in  a  list   and  "P" 
were  a  pointer  which  pointed  into  this   list  then  the   "J0B"   structure 
pointed  to  by  "P"  would  be  expressed  as   "P.J0B". 
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3.2.      Function  Designators 

3.2.1.  Syntax 

<procedure  identifier>  :  :=  <identifier> 

< actual  parameter>  : :=  <keyword  parameter>   <parameter> 

<keyword  parameter>  : :=  <formal  parameter  identifier>  :  <parameter> 

<parameter>  : :=  <expression>   <procedure  identifier> 

<variable>   *  |   <empty> 
< actual  parameter  list>  : :=  <actual  parameter> 

<actual  parameter  list> ,<actual  parameter> 
<function  designator>  : :=  <procedure  identifier> 

<procedure  identifier>  (<actual  parameter  list>) 
The  variables  which  appear  as  actual  parameters  may  he  semaphores,  files, 
access  variables,  or  process  variables. 

3.2.2.  Examples 

GETSPACE  (1OO*J0B_SIZE) 
ELAPSED_TIME  (A,B,C,D) 
GL0KPSHN0TT  (MERKLE_JAMMER) 

3.2.3.  Semantics 

Function  designators  may  define  any  data  type  value  available 
in  OSL/2.   This  data  is  returned  by  the  function  after  it  executes  a 
given  set  of  rules  defined  by  a  procedure  declaration.. 
3.2.U.   Standard  Functions 

The  following  functions  (primitives)  are  predefined  and 
implemented  for  the  user. 
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Functions 
ABS(E) 

SIGN(E) 

decimal(e) 
binary(e) 


CONVERT ( A, B,C) 

or 
CONVERT ( A, B,C,N) 


Arguments 

integer  expression 

integer  expression 
integer  expression 
decimal  string 


strings  A,B,C  and 
expression  N 


LENGTH(E) 

charsize(e) 


string 
string 


Action 

absolute  value  of  E  is 
returned. 

if  E>0  return  +1, 
if  E=0  return  0, 
if  E<0  return  -1. 

returns  a  decimal  string 
which  represents  the  decimal 
value  of  ABS(E). 

returns  the  binary  integer 
value  of  the  string  E. 

convert  N  characters  in 
string  A  into  a  new  string 
using  truncated  values  of 
the  characters  in  string  C. 
Each  character  in  A.  is  used 
to  index  into  string  C.   The 
first  character  in  C  is 
selected  if  the  character  in 
A  has  value  0,  the  second  if 
it  has  value  1,  etc.   The 
Character  in  C  is  truncated 
on  the  left  or  padded  with 
zeroes  on  the  left  to  match 
the  character  size  of  B.   The 
selected  character  is  then 
placed  in  B  and  the  process 
continues  at  the  next  position 
in  A  and  B  until  N  characters 
have  been  processed.   If  the 
character  position  beyond  the 
end  of  the  string  C,  or  if  N 
exceeds  the  size  of  A  or  B  then 
a  convert  failure  trap  is 
caused.   If  N<0  then  no  charac- 
ters are  converted. 

returns  the  number  of  characters 
in  string  E. 

returns  the  number  of  bits  per 
character  in  string  E. 
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Functions 
PTR(E) 

SPAN(E)   : 

or 
SPAN(E,N) 

EXCEPT (E) 

or 
EXCEPT (E,N) 


MY 
or 
ANY(N) 


belease(e) 

UPPER(E) 
L0WER(E) 

string(e) 

or 
STRING(E,N) 

ALLOCATE (E) 


Arguments 

any  single  variable 
or  array  element 
or  character 

E=string 

N=integer  expression 


E=string 

N=integer  expression 


N=integer  expression 


variable 


array  row 
specification 

array  row- 
specification 


integer  expression 


identifier 


Action 

A  pointer  to  the  variable, 
array  element,  or  character 
is  returned. 

A  pattern  is  returned  which 
represents  a  string  of  length 
N  consisting  of  any  of  the 
characters  in  E.   If  N  is 
absent,  a  string  of  arbitrary 
length  is  matched. 

Same  as  SPAN  except  that  a 
string  which  consists  of  any 
characters  except  those  in  E ' 
is  matched. 

II 

ANY  is  a  pattern  which  matche: 
any  string.  If  N  is  specific, 
then  ANY  matches  any  string  cj 
length  N. 

The  specified  variable  is 
deallocated.  j 

The  upper  bound  of  the  sped; 
fied  array  row  is  returned.  ' 

The  lower  bound  of  the  speci 
fied  array  row  is  returned. 

E  is  converted  to  a  bit  stn 
of  length  N.   Two's  compleme; 
arithmetic  is  assumed, 
not  provided,  the  current 
default  length  of  an  integer, 
is  assumed. 

A  pointer  is  returned  with  tfe 
location  of  E  in  it.  This 
primitive  is  used  at  block 
entry  and  block  exit.   If 
it  is  redefined  by  the  user, 
the  user  may  do  his  own 
allocation.  However,  the 
user  may  only  allocate  spact 
in  arrays  declared  lexico- 
graphically prior  to  the 
redefinition  of  primitive 
ALL0CATE.   This  function  maj; 
also  be  used  as  a  procedure, 
statement. 
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Functions 


B00L(e) 


Arguments 

integer  expression 


INTGB(E) 


decimal  string 


Action 

Allows  E  to  be  used  as  a 
Boolean  with  Boolean  opera- 
tors.  B00L(E)  is  true  if  E 
is  odd  or  has  a  right-most 
bit  equal  to  1.   Otherwise 
it  is  false. 

Allows  E  to  be  used  as  an 
integer. 


iq6 


3.3.      Integer  Expressions 

3.3.1.  Syntax 

<unary  operator>  : :=  +  I  - 

<adding  operator>  : :=  +  j  - 

multiplying  operator>  :  :=  *  |  /  |  RDIV  j  CDIV  |  M0D 

<primary>  : :=  <unsigned  integer>  !  <variable>  j  <function  designator> 

CASE  <integer  expression>  0F  <integer  expression  list>  ESAC 

( <integer  expression>) 
I  IF  <Boolean  expression>  THEN  <integer  expression>  ELSE 

<integer  expression>  FI 
<factor>  : :=  <primary>  |  <unary  operator >  <primary>  |  <factor>  +  <primary> 

<factor>  +  <unary  operator>  <primary> 
<term>  :  :=  <factor>    <term>  -^multiplying  operator>  <factor> 
<simple  integer  expression>  : :=  <term> 

<simple  integer  expression>  <adding  operator>  <term> 
<integer  expression>  : :=  <simple  integer  expression>  |  <integer  assignment> 
<integer  expression  list>  : :=  <integer  expression> 

<integer  expression  list>  ,<integer  expression> 

3.3.2.  Examples 

Integer  expressions: 
A+B+C 
X+-3 

-k    *  (A+INTGR  (16'OAFFF1)  M0D  3) 
18+  IF  J0BTIME  MAXTIME>THEN  A/B 
ELSE  IF  A  *  B  M0D  C  =  X 

THEN  R0UNBER  (Q) 

ELSE  A/B  FI  FI 
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Terms 


-(Q  -e-  B+C) 
A  +  -G  *  30 
Q+INTGR   (X.[1T:5]) 
X  «-  A+B   *    (C  «-  10*L) 

Z    [IT, A  *  B]    *  TEST_N0 

A  *  B  *  X  [11,  IF  A  =  B  THEN  3  ELSE  k   Fl]  *  Q 


Factors 


-A 

B 

C  +  D  t  -E  +  10 

+(30  *  A) 

-(A  +  (10+J)) 
Primaries : 

73 

IF  Q  =  R  ANDIF  B00L  (X  +  l)  IMP  B  THEN  IT  ELSE  Q  FI 

LENGTH  (P) 

BASE  (PTRl) 

(X  +  IF  P  THEN  2  ELSE  C  *  Q  Fl) 
3.3.3.   Semantics 

An  integer  expression  is  a  rule  for  computing  a  numerical 
value.   This  value  is  obtained  by  executing  the  indicated  arithmetic 
operations  on  the  actual  numerical  value  of  a  primary.   The  value  is 
obvious  in  the  case  of  constants.   For  variables,  it  is  the  current 
value  (assigned  last  in  the  dynamic  sense),  and  for  function  designators 
it  is  the  value  returned  when  the  computing  rules  defining  the  proce- 
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dure  are  applied  to  the  current  values  of  the  procedure  parameters 
given  in  the  expression.   For  integer  expressions  enclosed  in  paren- 
theses, the  value  must,  through  a  recursive  analysis,  be  expressed  in 
terms  of  values  of  primaries  of  the  other  three  kinds. 

The  value  of  a  primary  of  the  form  IF  <Boolean  expression> 
THEN  <integer  expression  1>  ELSE  <integer  expression  2>  FI  is  computed 
as  follows.  The  Boolean  expression  is  evaluated.   If  it  is  true, 
integer  expression  1  is  evaluated  and  is  the  value  of  the  primary.   If 
the  value  of  the  Boolean  expression  is  false,  then  integer  expression  2 
is  evaluated  and  is  the  value  of  the  primary. 

The  value  of  a  primary  of  the  form  CASE  <integer  expression> 
OF  <integer  expressionn> ,  <integer  expression  >,.. .<integer  expression  > 
ESAC  is  computed  as  follows.   The  integer  expression  following  the  case 
is  evaluated.   Assume  it  has  value  i.   If  0  <  i  <n  then  integer 
expression,  is  calculated  and  is  the  value  of  the  primary.   If  i  <  0  or 
n  <  i,  then  integer  expression  is  calculated  and  is  the  value  of  the 
primary. 

If  an  assignment  statement  appears  as  an  arithmetic  expression, 
the  arithmetic  assignment  statement  is  executed  and  the  value  of  the 
expression  is  the  value  assigned  by  the  assignment  statement. 

If  side  effects  in  a  function  designator  will  cause  ambiguity 
of  result,  expressions  are  evaluated  in  the  order  specified  by  the  syntax. 
3.3.3.1.   Operators  and  Types 

The  values  used  in  evaluating  integer  expressions  are  always 
integers.   The  resulting  value  of  the  integer  expression  is  an  integer. 
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3.3.3.1.1.  The  operators  +  ,-,  and  *  have  the  conventional  meanings  of 
addition,  subtraction  and  multiplication.   +  denotes  exponentiation. 

3.3.3.1.2.  The  operators  /,  RDIV,  CDIV,  and  M0D  have  special  meanings. 
Let  t  denote  normal  division  of  arbitrary  real  numbers-,  and  let  Entier(x) 
denote  the  largest  integer  less  than  or  equal  to  x.   Then 

A/B  is  a  lower  value  divide  =  Entier  (A  *  B) 

A  RDIV  is  a  rounded  divide  =  Entier  (A  *  B  +  .5) 

A  CDIV  is  a  ceiling  value  divide  =  -Entier  (-  (A  £  B)) 

A  M0D  B  is  the  remainder  after  dividing  A  by  B  =  (A  -  (A/B)  *  B) 

If  A  or  B  are  expressions,  then  they  are  called  by  value  before  executing 

the  above  algorithms . 

3.3.3.1.3.  The  levels  of  precedence  as  defined  by  the  syntax  are  as 
follows : 

first :       unary  +,- 

second:      + 

third:       *,  /,  RDIV,  CDIV,  M0D 

fourth:      binary  +,  - 
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3.U.  Boolean  Expressions 

3.U.I.   Syntax 

<relational  operator>  :  :=  <  j  <=  |  =  |  >=  |  >  |  ^= 

<equality  operator>  : :=  =  |  %= 

<relation>  : :=  <integer  expression>  <relational  operator>  <integer  expression 

<string  expression>  <relational  operator>  <string  expression> 

<pointer  expression>  <equality  operator>  <pointer  expression> 
<Boolean  primary>  :  :=  <logical  value>  j  <  variable5, 

<function  designator>  j  <relation>  i   (<Boolean  expression>) 
|  IF  <Boolean  expression>  THEN  <Boolean  expression>  ELSE 

<Boolean  expression5,  FI 
I  CASE  <integer  expression>  0F  <Boolean  expression  list>  ESAC 
<Boolean  secondary>  : :=  <Boolean  primary>  j  <Boolean  primary> 
<Boolean  factor5,  : :=  <Boolean  secondary> 

!  <Boolean  factor5,  AND  <Boolean  secondary5, 

<Boolean  factor5,  ANDIF  <Boolean  secondary5, 
<Boolean  term>  : :=  <Boolean  factor>  j  <Boolean  term>  X0E  <Boolean  factor> 
:  <Boolean  term>  0R  <Boolean  factor> 

<Boolean  term>  0RIF  <Boolean  factor> 
<implication>  : :=  <Boolean  term>  J  <implication>  IMP  <Boolean  term> 
<simple  Boolean>  : :=  <implication>  j  <simple  Boolean>  EQV  <implication> 
<Boolean  expression>  : :=  <simple  Boolean>  |  <pattern  matching  statement> 

I  <Boolean  assignment> 
<Boolean  expression  list>  :  :=  <Boolean  expression> 

<Boolean  expression  list> ,<Boolean  expression> 
Variables  and  function  designators  used  as  Boolean  primaries  must  be  declare 
of  type  B00LEAN. 
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3.U.2.  Examples 
A  =  B 

"HI  THERE!"  =  ACKN0WLEDGEMENT 

IF  S0ME_B00LEAN  THEN  TRUE  ELSE  F(G  *  T)FI 

IF  IF  A  =  B  THEN  Q  ELSE  R(P3)FI  THEN  TRUE  ELSE  X  =  R  FI 

(A  =  B  X0R  C)  AND  D  EQV  L  IMP  Z23 

B00L1  +  INT1  =  INT2  «-  2*INT3 
3.^.3.   Semantics 

A  Boolean  expression  is  a  rule  for  computing  a  logical  value.   The 
rules  of  evaluation  are  completely  analogous  to  rules  for  evaluating 
Integer  expressions. 

Relations  take  the  value  true  if  the  relation  is  satisfied  for 
;he  expressions  involved.   If  the  relation  is  not  satisfied,  then  the  value 
of  the  relation  is  false.   Only  strings  of  identical  character  size  may  be 
used  in  a  relation.  When  strings  are  being  compared,  the  comparison  takes 
place  from  left  to  right  character  by  character  until  an  inequality  is 
determined  or  the  two  strings  prove  to  be  equal  in  content  and  length. 
Characters  are  compared  by  the  arithmetic  value  of  their  binary  representations 
If  two  strings  of  unequal  length  are  compared  and  the  entire  shorter  string 
is  identical  to  the  first  part  of  the  longer  string,  then  the  shorter  string 
is  by  definition  less  than  the  longer  string.   Two  pointers  are  equal  if 
they  point  to  the  same  data. 
3.^.3.1.   Operators 

The  meaning  of  the  logical  operators  is  defined  in  the  following 
table : 
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OPERANDS 


OPERATIONS 


bl 

b2 

'bbl 

bl  AND  b2 

bl  X0R  b2 

bl  0R  b2 

bl  IMP  b2 

bl  EQV  b2 

false 

false 

true 

false 

false 

false 

true 

true 

false 

true 

true 

false 

true 

true 

true 

false 

true 

false 

false 

false 

true 

true 

false  . 

false 

true 

true 

false 

true 

false 

true 

true 

true 

The  sequence  of  operations  within  one  expression  is  left  to  right 
with  the  following  rules  of  precedence: 

first:      integer,  string,  and  pointer  expressions 


second: 

<,  <=,  =,  >-, 

third: 

<v» 

fourth : 

AND,  ANDIF 

fifth: 

X0R,  0R,  0RIF 

sixth : 

IMP 

seventh: 

EQV 

The  operators  ANDIF  and  0RIF  have  the  same  meaning  as  AND  and 
0R  except  that  they  may  alter  the  evaluation  rules  of  the  Boolean  expression 
and  may  thereby  drastically  change  any  side  effects.   If  the  logical  value 
computed  to  the  left  of  an  ANDIF  in  the  current  Boolean  factor  is  false, 
then  no  further  calculation  is  made  to  the  right  in  the  current  Boolean 
factor  containing  the  ANDIF.   The  value  of  the  Boolean  factor  is  false. 
If  the  logical  value  computed  to  the  left  of  an  0RIF  in  the  current  Boolean 
term  is  true,  then  no  further  calculation  is  made  to  the  right  in  the  curren 
Boolean  term  containing  the  0RIF.   The  value  of  the  Boolean  term  is  true.  I 
the  above  conditions  do  not  hold,  the  action  is  identical  to  AND  and  0R. 
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Strings   and  integers  may  be  used  as  Booleans  when  indicated  by  the 
B00L  function.      In  this   case  the  string  is  treated  as  true  if  the  right-most 
bit  is  1  and  false  if  it   is  0.      An  integer  becomes  true  if  it   is   odd  and  false 
if  it  is  even. 
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3.5-   String  Expressions 

3 . 5 • 1 •  Syntax 

<string  primary>  : :=  <string  const ant>   <f unction  designator>   <variable> 

|(<string  expression>) 
IF  <Boolean  expression>  THEN  <string  expression> 
ELSE  < string  expression>  FI 

CASE  <integer  expression>  0F  <string  expression  list>  ESAC 
<string  secondary>  : :=  <string  primary>  I  SN0T  <string  primary> 
<string  factor>  : :=  <string  secondary>  j  <string  factor>  SAND  <string  secondar 
<string  term>  : :=  <string  factor>  j  <string  term>  S0R  <string  factor> 

| <string  term>  SX0R  <string  f actor> 
<simple  string  expression>  ::=  <string  term> 

:  <simple  string  expression1*  &  <string  term> 
<string  expression>  :  :=  <simple  string  expression>  j  <string  assignments    (. 
<string  expression  list>  : :=  <string  expression> 

I <string  expression  list> ,<string  expression> 
Variables  and  functions  are  used  as  string  primaries  must  be  declared  to  be 
type  STRING.   Only  strings  of  the  same  character  size  may  be  concatenated. 
3.5.2.   Examples 

"THIS"  &  "IS  A  C0N CATENATED  STRING" 

DECIMAL  (SALARY)  &  (IF  CENTS  THEN  10"00"  ELSE  MT  Fl) 

A  SAND  2' 110000111100 ' 
3.5-3-   Semantics 

A  string  expression  is  a  rule  for  computing  a  string  value.   The 
rules  for  evaluating  a  string  expression  are  analogous  to  the  rules  for 
evaluating  an  integer  expression. 
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The  string  operators  SAND,  S0R,  SX0R,  and  SN0T  correspond  respectively 
to  bit  wise  and,  or,  exclusive  or,  and  not  operations.  These  operators  work 
left  to  right  on  any  strings.   The  operators  SAND,  S0R,  and  SX0R  may  operate 
on  strings  of  inequal  length.  The  result  is  the  same  as  if  the  operations 
were  performed  on  the  full  length  of  the  shorter  operand  and  the  first  part 
of  the  longer  operand  (which  is  the  same  length  as  the  shorter  operand) 
concatenated  with  the  rest  of  the  longer  operand. 

The  string  constant  MS   is  the  empty  string. 

The  value  of  a  string  expression  is  the  concatenated  string  whose 
length  is  equal  to  the  sum  of  its  concatenated  components. 
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3.6.   Pointer  Expressions 

3.6.1.  Syntax 
<pointer  expression>  : :=  <pointer  variable> 

< function  designator>  INULL 

IF  <Boolean  expression>  THEN  <pointer  expression> 
ELSE  <pointer  expression>  FI 

CASE  <integer  expression>  OF  <pointer  expression  list>  ESAC 
<pointer  assignment> 
<pointer  expression  list>  :  :=  <pointer  expression> 

i  <pointer  expression  list> ,<pointer  expression> 
The  pointer  variables  and  function  designator  in  pointer  expression 
must  be  of  type  POINTER. 

3.6.2.  Examples 

P.A.PTR1 

P. A 

P  «-  PTR(B) 

IF  Rl  =  P2  THEN  PI  ELSE  Pl.P  FI 

P[23] 

P[A*B+C] 
3.6.3-      Semantics 

A  pointer  expression  is   a  rule   for  computing  a  pointer  value.      A 
pointer  value  points  to  a  particular  piece  of  data  whether  it  be   an  individul 
character,   integer,    array,   event,   structure,   etc.      The  pointer  operator  "." 
may  be   read  right  to   left   as    "pointed  to  by  the  pointer".      Thus   "P. A"   is  A 
pointed  to  by  the  pointer  P. 
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3.T-  Pattern  Expressions 

3.7-1.   Syntax 

<pattern  primary>  : :=  <string>   <variable>  :  <function  designator> 

!  <pattern  expression> 

I  IF  <Boolean  expression>  THEN  <pattern  expression> 
ELSE  <pattern  expression>  FI 

\    CASE  <integer  expression>  0F  <pattern  expression  list>  ESAC 
<pattern  secondary>  : :=  <pattern  primary > 

I  <pattern  secondary>  &  <pattern  primary> 
<pattern  factor>  : :=  <pattern  secondary>  j  <string  variable> 

I  <pattern  secondary> 
<pattern  alternative  list>  : :=  <pattern  factor> 

J  <pattern  alternative  list>  <vertical  bar>  <pattern  factor> 
<pattern  expression>  : :=  {<pattern  alternative  list>} 
<pattern  expression  list>  :  :=  <pattern  expression> 

I  <pattern  expression  list> ,<pattern  expression> 
3.7-2.   Examples 

"A" 

{B  <-  {"A"  I  "B"  &  SPM(  "012376")}  I  B  +   X  &  C} 

{"LMQ"  I  "CAT"  I  "D0G"} 
3.7.3.   Semantics 

Pattern  expressions  define  a  rule  for  scanning  strings.   Patterns 
are  used  in  string  matching  statements  and  their  semantic  interpretation 
is  discussed  there. 
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3.8.   Structure  Expressions 

3.8.1.  Syntax 

<structure  expression>  : :=  <structure  variable> 

<function  designator> 

IF  <Boolean  expression>  THEN  <structure  expression> 

ELSE  <structure  express ion>  FI 

CASE  <integer  expression>  0F  <structure  expression  list>  ESAC 
<structure  expression  list>  : :=  <structure  expression> 

<structure  expression  list> ,<structure  expression> 
Variables  and  functions  used  as  structure  expressions  must  "be  declared  to  "be 
structures.   All  structures  in  one  expression  must  have  the  same  hierarchy 

1 

and  types  in  each  position. 

3.8.2.  Examples 

A 

A.B 

IF  A=B  THEN  S  ELSE  B.S  FI 
3.8.3-   Semantics 

The  rules  for  evaluating  a  structure  expression  are  analogous  to 
the  rules  for  evaluating  an  integer  expression. 
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h.      Statements 

The  basic  unit  of  calculation  is  the  statement.   Statements  are 
normally  executed  sequentially  in  the  order  in  which  they  are  written.   This 
sequence  may  he  shortened  by  conditional  or  escape  statements  which  may 
cause  some  statements  to  be  skipped,  or  process  statements  may  create 
new  processes  that  will  run  in  parallel  with  the  current  code. 

Statements  may  be  grouped  into  compound  statements  and  blocks 
which  are  themselves  statements.  Therefore  the  definition  of  statement  is 
necessarily  recursive. 
k.l.      Compound  Statements  and  Blocks 
U.l.l.   Syntax 
<basic  statements  :  :=  <assignment  statement>  |  <dummy  statement> 

J  <case  statements  I  <procedure  statement>  j  <process  statements 

j  <iterative  statement>  :  <escape  statement> 

j  <pattern  matching  statement >  I  < synchronization  statement> 
<unconditional  statements  :  :=  <basic  statement>    <compound  statement> 

|  <block> 
<statement>  : :=  <unconditional  statement>  ;  <conditional  statement> 
<statement  list>  : :=  <statement>  |  <statement  list> ;<statement> 
<declaration  list>  :  :=  <declaration>   <declaration  list>;<declaration> 
<compound  statement>  : :=  BEGIN  <statement  list>  END 

|  <label>  :  <compound  statement>  :  <label> 
<block  head>  :  :=  BEGIN  declaration  list> 
<block>  : :=  <block  head>  ;  statement  list>  END 

|  <label>  :  <block>  :  <label> 
<program>  : :=  <block>  j  <compound  statement>   <procedure  declaration> 


All  labels  are  used  as  brackets.   If  a  label  is  used  before  a 
statement,  the  same  label  must  be  used  after  the  statement. 
H.1.2.  Examples 

Let  S,  D,  and  L  denote  arbitrary  statements,  declarations  and 
labels . 

Basic  statements: 
form:  S 
A  -e-B+C 
P.D  «-Q 

LEAVE  OUTEKBL0CK 
Compound  statements : 

form:   L:L. . .L:BEGIN  S;S;S;,..;S  END:L  ...  L:L 
CD: BEGIN 

P(23,17,A*B); 
X  +  P+D; 
REWIND(TAPE9); 
TERMINATE 
END: CD 


Blocks : 


BLOCK : 


form:   L:L. . .L:BEGIN  D;D; . . . ;D;S ; . . . ;S  END  :  L:L  ...L 
BEGIN 

INTEGER  X,Y,Z; 

STRING  (A,B5C)  (30); 

A  <-   "N0W  IS  THE  TIME" ; 

B  «-  A   &  "23  SKID00"; 
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X  ■*■  2*(Y  +   30); 

Z  «■  X+Y; 

IF  X  =  INTGR(lO"37")  THEN  LEAVE  BL0CK  ELSE  TERMINATE  FI 
END:   BL0CK 
U.1.3.   Semantics 

Every  block  introduces  a  new  level  of  nomenclature.   Any  identifier 
occuring  within  the  block  is  local  to  the  block  if  it  is  defined  in  the 
blockhead.   Identifiers  defined  outside  the  present  block  but  within  a  block 
containing  the  present  block  are  global  to  the  present  block.   Only  entities 
represented  by  local  and  global  identifiers  have  any  existence  within  a  block. 
When  an  identifier  is  declared  within  a  block,  any  entity  represented  by 
this  identifier  outside  the  block  is  completely  inaccessible  inside  the  block, 
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1+.2.   Assignment  Statements 
U.2.1.   Syntax 

<assignment  statement>  ::=  <integer  assignment>   <Boolean  assignment> 
<string  assignment>   <pointer  assignment> 
<pattern  assignment>  .  <structure  assignment> 
<left  part  list>  :  :=  <variable>  -«-  |  <left  part  list>  <variable>  -<- 
<integer  assignment>  ::=  <variable>  ■<-  <integer  expression> 
<Boolean  assignment>  :  :=  <variable>  -<-  <Boolean  expression> 
<string  assignment>  :  :=  <variable>  <-   <string  expression> 
<pointer  assignment>  :  :=  -cleft  part  list>  <pointer  expression> 
<structure  assignment>  ::=  <left  part  list>  <structure  expression> 
<pattern  assignment>  : :=  <left  part  list>  <pattern  expression> 
All  variables  on  the  left  of  the  assignment  arrow  must  be  the  same  type 
as  the  expression  on  the  right.  An  asterisk  may  be  used  as  the  first 
primary  in  the  expression  on  the  right  of  the  assignment  arrow.   Any 
pointer  or  pattern  variable  appearing  on  the  left  of  an  assignment  arrow 
must  be  at  the  same  or  lower  nested  block  level  of  any  variables  appearing 
to  the  right  of  the  arrow.   If  the  variable  on  the  left  of  an  assignment 
is  a  function  identifier,  then  the  expression  value  is  saved  to  be 
returned  at  the  end  of  the  procedure. 
k . 2 . 2 .   Examples 

A  +-  B+C 

X  <-  *+l 

B  +  X*Y 

S  +   "TEST" 

P  «-  PTR(A[0]) 

SI  -e  S2 

P  *■  {"A"  I  "B"  I  "CAT"} 
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U.2.3.   Semantics 

Assignment  statements  assign  the  value  of  an  expression  to  one  or 
more  variables  in  a  left  part  list.   The  types  of  the  entities  on  the  left 
and  right  of  the  assignment  must  agree.   No  type  transfers  are  automatically 
invoked. 

An  asterisk  in  place  of  the  first  primary  after  an  assignment 
arrow  means  that  the  variable  to  the  immediate  left  of  the  assignment  arrow 
is  to  be  used  in  place  of  the  asterisk  without  further  evaluation  of  sub- 
scripts, etc.  that  may  cause  side  effects.   An  access  variable  may  not  be 
this  variable  if  the  asterisk  convention  is  used. 

The  presence  of  an  access  identifier  on  the  left  or  right  of  an 
assignment  automatically  invokes  the  appropriate  fetch  or  store  procedure 
specified  in  the  access  declaration  to  generate  or  save  an  expression  value. 

Assignment  statements  are  executed  in  the  order  specified  by  the 
following  algorithm: 
first:   Any  subscript  or  substring  specifications  occuring  in  the  left  part 

list  are  evaluated  in  sequence  from  left  to  right, 
second:   The  expression  of  the  statement  is  evaluated, 
third:   The  value  of  the  expression  is  assigned  to  all  the  left  part  variables, 

and  all  access  variable  stores  are  performed  from  right  to  left. 
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U.3.   Dummy  Statements 
U.3.1.  Syntax 

< dummy  statement>  : :=  <empty> 
U.3.2.  Examples 

BEGIN...;  END 

k . 3 • 3 .   Semanti  cs 

A  dummy  statement  executes  no  rules  and  performs  no  calculations 
It  is  completely  null.   Dummy  statements  may  serve  as  markers  in  unused 
indices  of  a  case  statement. 
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h.k.      Case  Statements 

U. U. 1.   Syntax 

<case  statement>  : :=  CASE  <integer  expression>  0F  <statement  list>  ESAC 

I  <label>  :  <case  statement>  :  <la"bel> 
k.k.2.      Examples 

CASE  N  0F 

PO(A,B); 
P1(A,B,); 
P2(A,B) 
ESAC 
BESET:   CASE  GL0EP  0F 

PX  «-  PTR  (A[K]); 
PX  ■*-  PTR  (B[K])  ; 
PX  +   PTR  (C[K]) 
ESAC :   RESET 
U.U.3.   Semantics 

Case  statements  allow  one  statement  to  be  selectively  executed  from 
a  list  of  statements.   The  statements  in  the  statement  list  are  numbered 
0,l,2,...,n.   The  integer  expression  is  evaluated.   If  the  value  of  the 
arithmetic  expression  is  k  then  the  k   statement  is  executed.   If  k  is 
out  of  range  -  i.e.,  k  <  0  or  k  >  n  then  the  n   statement  is  executed. 
Control  proceeds  to  the  statement  immediately  following  the  ESAC  after  the 
appropriate  statement  is  executed. 
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U.5.  Procedure  Statements 

U.5.1.  Syntax 

<procedure  statement>  : :=  <procedure  identifier> 

<procedure  identifier>  (<actual  parameter  list>) 
h . 5 . 2 .   Example 

SIN(X) 

INNER_PRODUCT ( A ,B ) 
^•5^3.   Semantics 

A  procedure  statement  serves  to  invoke  (call  for)  the  execution 
of  a  procedure  body  (cf.  procedure  declarations).   The  effect  of  this 
execution  will  be  equivalent  to  the  effect  of  performing  the  following 
operations  on  the  program  at  the  time  of  execution  of  the  procedure 
statement. 
U.5.3.1.   Call  by  Value 

All  formal  parameters  quoted  in  the  value  part  of  the  procedure 
declaration  heading  are  assigned  the  values  of  the  corresponding  actual 
parameters,  these  assignments  being  considered  as  being  performed  explicitly 
before  entering  the  procedure  body  in  the  order  in  which  the  parameter 
appears  in  the  formal  parameter  list.   The  effect  is  as  though  an  additional 
block  embracing  the  procedure  body  were  created  in  which  these  assignments 
were  made  to  variable  local  to  this  fictitious  block  with  types  as  given  in 
the  corresponding  specifications.   As  a  consequence,  variables  called  by 
value  are  to  be  considered  as  nonlocal  to  the  body  of  the  procedure,  but 
local  to  the  fictitious  block. 
U.5.3.2.   Call  by  Name 

Any  formal  parameter  quoted  in  the  name  list  is  replaced,  through- 
out the  procedure  body,  by  the  corresponding  actual  parameter  after  enclosiii 
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this  latter  in  parenthesis  wherever  syntactically  possible.   Possible 
conflicts  between  identifiers  inserted  through  this  process  and  other 
identifiers  already  present  within  the  procedure  body  will  be  avoided  by 
suitable  systematic  changes  of  the  formal  or  local  identifiers  involved. 
4.5-3.3.   Call  by  Reference 

Any  formal  parameter  not  quoted  in  the  name  or  value  list  is 
called  by  reference.   References  which  consist  of  a  single  variable,  array, 
structure,  substructure,  or  element  of  an  array  are  called  by  name  after 
having  all  subscripts  of  such  variables  called  by  value.   Any  pattern 
variables  and  structure  variables  containing  patterns  and  all  other  variables 
and  expressions  will  be  called  by  value. 
4.5.3.4.   Body  Replacement  and  Execution 

The  procedure  body,  modified  as  above,  is  inserted  in  place  of 
the  procedure  statement  and  executed.   If  the  procedure  is  called  from  a 
place  outside  the  scope  of  any  nonlocal  quantity  of  the  procedure  body 
the  conflicts  between  the  identifiers  inserted  through  this  process  of 
body  replacement  and  the  identifiers  whose  declarations  are  valid  at  the 
place  of  the  procedure  statement  or  function  designator  will  be  avoided 
through  suitable  systematic  changes  of  the  latter  identifiers. 
4.5-4.   Syntactic  Restrictions 
4.5.4.1.   Actual-Formal  Correspondence 

Actual  parameters  must  normally  correspond  in  number  and  type 
to  formal  parameters  in  the  procedure  declaration  in  the  order  in  which  they 
appear  in  both  the  actual  and  formal  parameter  lists  unless  the  actual  para- 
meters are  keyword  parameters  (cf.  §3.2.1.  &  §4.5.4.2.)  or  default  parameters 
(cf.  §5.12.3.  &  §4.5.4.3.).   Furthermore,  subscript  ranges,  string  lengths, 
and  bases  must  agree  with  the  actual  parameters  as  they  are  defined  in  the 
procedure  declaration  heading. 
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U.5-U.2.   Keyword  Specifications 

Actual  parameters  which  are  predeceded  by  a  keyword  (formal 
parameter  identifier  followed  hy  a  colon)  take  one  position  in  the  ordered 
list  but  are  linked  to  the  indicated  formal  parameter. 

U.5.U.3.  Defaults 

Actual  parameters  that  have  default  values  may  he  indicated  hy  an 
asterisk,  no  expression  -  Just  the  next  «,  or  hy  deleting  all  reference 
to  such  parameters  that  appear  at  the  end  of  the  ordered  parameter  list. 
U.5.U.U.   Call  by  Value  Restrictions 

Procedure  identifiers  may  not  be  called  by  value. 
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h.6.     Process  Statements 
k.6.1.      Syntax 

<process  statement>  : :=  SPAWN  (<procedure  statement>) 
APPEND  (<procedure  statement>) 
INITIATE  (<procedure  statement> ,<process>) 
TERMINATE 

TERMINATE  (<process>) 
SUSPEND  (<process>) 
RESTART  (<process>) 
U.6.2.   Examples 

APPEND  (PQ(l)) 
INITIATE  (USER_JpB,  P[N]) 
SUSPEND  (P[k]) 
RESTART  (PR0CESS_23) 
TERMINATE 
k.6.3>      Semantics 

Process  statements  allow  one  to  execute  and  monitor  several  asyn- 
chronous processes. 

In  order  to  understand  the  process  statements,  one  must  understand 
the  OSL/2  philosophy.   The  current  program  in  execution  is  an  operating  system 
that  exists  on  top  of  one  or  more  other  operating  systems  and  is  capable  of 
initiating  new  programs  for  which  it  may  be  the  operating  system. 

The  SPAWN  command  tells  the  operating  system  which  supports  the 
current  program  to  run  a  new  and  separate  program  in  a  manner  identical  to  the 
current  program.   SPAWN  just  enters  a  new  job  into  the  system.   Any  parameters 
passed  to  a  spawned  procedure  are  called  by  value. 
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APPEND  initiates  a  procedure  that  is  part  of  the  current  program. 
This  procedure  can  address  any  variables  global  to  it  simultaneously  with  the 
current  program.   Control  cannot  leave  the  block  that  appended  the  procedure 
until  all  such  appended  procedures  in  that  block  have  returned. 

INITIATE  initiates  a  new  program  but  allows  the  current  program  to 
create  new  primitives  and  handle  the  existing  operating  system  functions  for 
the  new  program.  Each  such  program  is  identified  by  a  process  variable.   If 
the  initiating  program  chooses  not  to  redefine  storage  allocation,  or  any 
other  primitive  for  the  initiated  process,  then  those  functions  are  by  default 
handled  by  the  operating  systems  which  support  the  initiating  program. 

SUSPEND  and  RESTART  perform  the  obvious  functions  for  their  specific 
processes. 

TERMINATE  terminates  the  current  program  if  no  process  is  specified 
Otherwise,  the  specified  process  will  be  terminated. 
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k.J.      Iterative  Statements 

U.T-1.   Syntax 

<iterative  statement>  : :=  WHILE  <Boolean  expression;*  D0  <statement> 

I  Dj6  <statement>  UNTIL  <Boolean  expression> 

j  F$R  <integer  expression;.  TIMES  D0  <statement> 

I  F0R  <integer  variable>  <-   <integer  for  list>  D0  <statement> 

I  F0R  <variable>  <-   <expression  list>  D0  <statement> 

j  <label>  :  <iterative  statement>  :  <label> 
<integer  for  list>  : :=  <for  list  element>   <integer  for  list>,<for  list  element 
<for  list  element>  : :=  <integer  expression> 

|  <integer  expression>  T0  <integer  value> 

|  <integer  expression>  T0  <integer  value>  BY  <integer  value> 

|  <integer  expression>  STEP  <integer  value>  WHILE  <Boolean  expression; 

|  <integer  expression>  STEP  <integer  value>  UNTIL  <Boolean  expression; 

I  <integer  value>  WHILE  <Boolean  expression> 

I  <integer  value >  UNTIL  <Boolean  expression> 
<integer  value>  : :=  <integer  expression>   VALUE  ( <integer  expression>) 
U . 7 . 2 .   Examples 

WHILE  P  =  B  D0 

BEGIN 

I  «.  I  +  1; 

B  <-   PIT  (A[I]); 

END 

F0R  A  «-  "CAT",  "D0G",  "PE0PLE"  D0  MATCH  (A) 

F0R  B  +   0  TO  N  BY  1  D0  A[B]  «-  "NULL" 

D0  A  «■  A  +  1  UNTIL  S.[A:l]  =  "A" 
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U .  7  -  3 .  Semantics 

Iterative  statements  will  cause  a  statement  to  be  executed  zero,  one, 
or  more  times.   Let  S  be  a  statement,  B,  a  Boolean  expression,  I,  an  integer 
expression,  V,  a  variable,  and  E,  any  expression.   Then  the  form  and  semantic 
action  associated  with  each  iterative  statement  is  as  follows : 
form  1:   WHILE  B  D0  S 

1)  evaluate  B. 

2)  if  B  is  false,  skip  S  and  continue  execution  at  the  next 
sequential  statement. 

3)  if  B  is  true,  execute  S  and  repeat  this  sequence  starting 
at  1). 

form  2:   D0  S  UNTIL  B 

1)  execute  S. 

2)  evaluate  B. 

3)  if  B  is  false,  repeat  this  sequence  starting  at  l). 

k)      if  B  is  true,  continue  execution  at  the  next  sequential 
statement, 
form  3:   F0R  I  TIMES  D0  S 

1)  evaluate  I. 

2)  execute  S  I  times, 
form  h:      F0R  V  «- 

a)      I, 

b) 

c) 


I1  T0  I2, 


I1   T0  I2  BY  I3, 

d)  I   STEP  I  WHILE  B, 

e)  I   STEP  I   UNTIL  B, 
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kb 


k&: 


I  WHILE  B, 
I  UNTIL  B 
D0  S 

V  «-  I. 
execute  S. 

continue  execution  with  the  next  for  list  element. 

V  «-  I  . 

if  V  >  I  skip  S  and  continue  execution  with  the  next  for  list 
execute  S. 

V  +  V  +  1. 

repeat  sequence  kb   starting  at  2). 


if  I  >  0. 

2.1)  if  V  >  I  then  start  executing  with  the  next  for  list 
element. 

2.2)  if  V  <  I   then  execute  S. 

2.3)  skip  to  h) . 
3)   if  I  <  0. 

3.1)  if  V  <  I  then  start  executing  with  the  next  for  list 
element . 

3.2)  if  V  >  I  then  execute  S. 
k)      V  «-  V  +  I  . 

5)   repeat  sequence  ^c  starting  at  2). 

1)  V  -h  I  . 

2)  if  B  then  execute  S  otherwise  continue  execution  with  the  next 
for  list  element. 
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3)   V  +   V  +  I2. 

U)   repeat  sequence  h&   starting  at  2). 
he :   as  in  Ud  with  B  replaced  by  'vB. 
Uf:   l)  V  «-  I. 

2)  if  B  then  execute  S  otherwise  skip  S  and  continue  execution 
with  the  next  for  list  element. 

3)  repeat  sequence  kf   starting  at  1. 
kg:        as  in  Uf  with  B  replaced  by  B. 

Once  all  for  list  elements  have  been  exhausted  control  continues 
with  the  statement  following  S. 

If  an  expression  is  qualified  by  value,  e.g., 

F0R  I  +   A  +  B  T0  VALUE  (C  *  D/3)  BY  10 
then  the  integer  expression  qualified  by  value  (in  this  case  it  is 
C  *  D/3)  is  evaluated  only  once  at  the  beginning  of  the  loop.   This  value 
is  stored  in  a  temporary  location  and  used  for  loop  calculations. 
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4.8.  Escape  Statements 

4.8.1.  Syntax 

<escape  statement>  : :=  LEAVE  <scope>  |  LEAVE  <scope>  (<expression>) 
<scope>  : :=  <label>  i  <procedure  identifier>  |  <trap  identifier> 

4.8.2.  Examples 
LEAVE  A 

LEAVE  FCNT  (A*2) 
LEAVE  INNERLOOP 

4.8.3.  Semantics 
Escape  statements  allow  control  to  leave  a  procedure,  trap  condition, 

or  one  or  more  nested  "blocks ,  compound  statements ,  conditionals ,  or  iteration 
statements  without  executing  all  the  statements  following  in  the  particular 
construct  being  executed. 

A  procedure  identifier  following  a  leave  causes  control  to  leave 
the  indicated  procedure  body.   If  the  procedure  is  used  as  a  function,  a 
value  may  be  returned. 

The  label  following  a  LEAVE  indicates  that  control  is  to  escape 
the  range  of  the  statement  with  that  label.   The  escape  expression  must  be 
contained  within  the  statement  whose  label  is  specified.   One  may  use  a 
labelled  LEAVE  to  escape  one  or  more  iterations,  blocks,  compounds,  or 
conditional  statements. 

If  a  trap  identifier  follows  a  leave  then  the  indicate  trap 
condition  is  left  and  control  continues  where  it  left  off.   A  value  may  be 
returned. 
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h.9.      Pattern  Matching  Statements! 

U.9.1.   Syntax 

<pattern  matching  statement>  : :=  <string>  <pattern  part> 

I  <variable>  <pattern  part> 

<variable>  <pattern  part>  -<-  <string  expression> 
<pattern  part>  : :=  <pattern  expression>  |  FIXED  <pattern  expression> 
k .9 . 2 .  Examples 

"ABCD"  PATT 

"ABCD"  {"C"} 

STRING  FIXED  PATT 

VAR  {{X  «-'  {"A"  I  "B"  I  "CAT"  |  PATT}}  &  "L"}  +   MP 
U.9.3.   Semantics 

A  pattern  statement  matches  a  pattern  against  a  string  or  string 
variable.  If  a  match  is  made,  the  value  of  the  statement  is  true.  Other- 
wise the  statement  is  false.  A  pattern  statement  may  be  used  as  a  Boolean 
expression. 

If  a  successful  match  is  made,  that  part  of  the  string  matched  by 
the  pattern  may  be  replaced  by  the  value  of  the  optional  string  expression 
in  the  syntax  above  (l+.lO.l). 

The  pattern  matching  algorithm  proceeds  from  left  to  right  and 
attempts  to  match  the  innermost  and  leftmost  patterns  first.   If  two 
patterns  are  concatenated  ("&")  then  that  defines  one  pattern  which  consists 
of  the  first  pattern  immediately  followed  by  the  second  pattern.   For 
example,  the  pattern  "A"  &  "B"  is  equivalent  to  the  pattern  "AB". 

If  a  pattern  alternative  list  is  specified  the  pattern  alternative 
are  tried  one  by  one  from  left  to  right  until  one  matches  or  the  list  is 
exhausted. 
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If  at  any  time  a  match  is  made  to  a  pattern  secondary,  the 
value  of  the  matched  part  of  the  string  may  "be  immediately  assigned  to 
a  string  variable.   For  example,  the  pattern  {S  •*-  {  "A"  |  "B"  |  "12"}}, 
if  it  matches  at  any  time  during  the  execution  of  the  pattern  matching 
algorithm,  will  necessarily  assign  the  value  "A",  "B" ,  or  "12"  to  string 
variable  S.   Note:   since  subpatterns  may  match  even  if  an  entire 
pattern  does  not  match,  this  may  lead  to  serious  side  effects. 

Normally,  a  pattern  match  is  made  at  the  left  most  possible 
position  anywhere  in  a  string.   If  a  word  FIXED  preceeds  the  pattern  in 
the  pattern  statement,  then  the  pattern  must  match  beginning  at  the  first 
character  in  the  string. 

Within  these  constraints,  pattern  matching  is  recursively  defined 
and  proceeds  generally  left  to  right  and  from  inner-most  to  outer-most 
nested  patterns . 
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U.10.   Synchronization  Statements 

U.10.1.   Syntax 

synchronization  statement>  :  :=  P( <semaphore>) 

V( <semaphore> ) 
<semaphore>  : :=  <identifier>   <identifier>  <subscript> 
U.10.2  Examples 

P(sem) 

V(sem) 
U.10.3. 

Semaphores  are  used  to  synchronize  processes.  All  semaphores 
are  initialized  at  declaration  time  -  normally  to  zero  or  one.  When  a 
process  performs  a  P  operation,  the  indicated  semaphore  is  decremented 
by  one.   If  the  value  of  the  semaphore  is  greater  than  or  equal  to  zero, 
then  the  process  continues.   If  the  semaphore  is  negative,  then  the  process 
is  blocked  and  is  booked  on  a  "waiting  list  for  that  semaphore. 

A  V  operation  adds  one  to  a  semaphore.   If  the  semaphore  is 
greater  than  zero  no  other  action  is  taken.   If  the  semaphore  is  less  than 
or  equal  to  zero  then  one  process  is  removed  from  the  waiting  list  for 
that  semaphore.   The  removed  process  is  no  longer  blocked  and  will  continue 
execution  at  some  time  in  the  future. 
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U.ll.   Conditional  Statements 
U.ll.l.   Syntax 

Conditional  statement>  :  :=  IF  <Boolean  expression>  THEN  <statement  list>  FI 
IF  <Boolean  expression>  THEN  <statement  list> 
ELSE  <statement  list>  FI 

<label>  :  Conditional  statement>  :  <label> 
U.11.2.   Examples 

IF  A  <  B  THEN  R  +   R  +  1  FI 
0UTER:   IF  P  THEN 
BEGIN  INNER:   WHILE  TRUE  D0 
BEGIN 

X  ■*■  X  +  1; 

IF  A  ■*•   X  >w  3  THEN  LEAVE  0TJTER 
ELSE  A*X*R*(X*X+1)IT; 
IF  A  +   X  -  1  >=  3  THEN  LEAVE  INNER  FI ; 
X  *■  X  +  1 
END:   INNER 
ELSE  X  +   0  FI:   0UTER 
U.11.3.   Semantics 

Conditional  expressions  may  cause  some  statements  to  be  skipped 
depending  upon  the  value  of  the  Boolean  expression  in  the  if  clause. 

If  the  Boolean  expression  is  true,  the  statement  list  immediately 
following  the  THEN  is  executed.   Control  then  skips  over  all  remaining 
portions  of  the  conditional  statement,  if  any,  and  resumes  immediately 
following  the  FI . 

If  the  Boolean  expression  is  false,  the  statement  list  immediately 
following  the  THEN  is  skipped  and  control  continues  at  the  next  sequential 
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statement  after  the  FI  if  no  ELSE  is  present,  or  at  the  statement  following 
the  ELSE  if  an  ELSE  is  present. 
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5.   Declarations 

Declarations  serve  to  define  certain  properties  of  the  quant- 

tities  used  in  the  program,  and  to  associate  them  with  identifiers .  A 

declaration  of  an  identifier  is  valid  for  one  "block.   Outside  this  block 

the  particular  identifier  may  "be  used  for  other  purposes. 

Dynamically  this  implies  the  following:  at  the  time  of  an  entry 

into  a  block  (through  the  BEGIN)  all  identifiers  declared  for  the  block 

assume  the  significance  implied  by  the  nature  of  the  declarations  given. 

If  these  identifiers  have  already  been  defined  by  other  declarations  outside, 

they  are  given  a  new  significance  for  the  time  being.   Identifiers  which 

are  not  declared  for  the  block  retain  their  old  meaning. 

At  the  time  of  exit  from  a  block  (through  the  END,  or  by  an 

escape  statement)  all  identifiers  which  are  declared  for  the  block  lose 

their  local  significance. 

A  declaration  may  be  marked  with  an  additional  declarator: 

0WN  or  N0DE.   0WN  and  N0DE  have  the  following  effect: 

0WN:      The  dimensions,  sizes,  and  string  lengths  of  quantities  declared 
to  be  own  must  be  fixed  value  expressions  -  that  is,  they  must 
be  calculable  at  compile  time.  Upon  re-entry  into  a  block,  the 
values  of  own  quantities  will  be  unchanged  from  their  last  exit. 
In  contrast,  the  values  of  declared  variables  that  are  not  own, 
and  are  not  initialized  in  their  declaration,  are  undefined. 

N0DE:  N0DE  quantities  are  not  available  for  use  until  allocated  within 
a  block.  They  may  be  allocated  or  released  an  indefinite  number 
of  times  in  any  block.  Whenever  a  node  Is  released,  the  default 
node  (that  is,  one  not  specifically  pointed  to)  is  the  most  recently 


allocated  node.  Therefore,  nodes  may  be  used  as  stacks.  When 
used  as  stacks,  push  corresponds  to  allocate  and  pop  to  release. 


Apart  from  the  standard  functions  (cf.  3.2.U.,  Standard 

Functions)  and  labels,  all  identifiers  of  a  program  must  be  declared. 

No  identifier  may  be  declared  more  than  once  in  any  block  head. 

Syntax 

<declaration>  :  :=  <integer  declaration  J  <Boolean  declaration 
<string  declaration  i  <semaphore  declaration 
<process  declaration  j  <pointer  declaration 
<structure  declaration  j  <trap  declaration 
<pattern  declaration  J  <access  definition 
<access  declaration  |  <procedure  declaration 
<file  declaration>  I  < define  declaration 
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5.1.      Integer  Declarations 

5.1.1.  Syntax 

<id  part>  : :=  <identifier>  j  (<id  list>) 

<id  list>  : :=  <identifier>   <id  list> ,<identifier> 

<number  of  bits>  : :=  <integer  expression> 

<array  part>  :  :=  <empty>  ;  [<"bound  pair  list>] 

<bound  pair  list>  :  ;=  <bound  pair>   <"bound  pair  list>,<bound  pair> 

<bound  pair>  :  :=  <lower  bound>  :  <upper  bound> 

<lower  bound>  : :=  <integer  expression> 

<upper  bound>  : :=  <integer  expression> 

<initialization>  : :=  <id  part>  <array  part> 

j  <id  part>  <array  part>  •*-   <expression> 
<initialization  list>  : :=  <initialization> 

j  <initialization  list> ,<initialization> 
<storage  class >  : :=  <empty>  i  0WN  |  N0DE 
<integer  declaration>  : :=  <storage  class>  INTEGER  <initialization  list> 

5.1.2.  Examples 

INTEGER  A,B,C,    (X,Y,Z)    [0:10]   -*■  0 
INTEGER  A  +  0,   B  +  l,    (C,D)   «-   3 
N0DE   INTEGER  X  «-  3,   Y(32),    Z(l6) 

5.1.3.  Semantics 

Identifiers  declared  to  be  integer  can  only  take  on  integer  values. 
If  a  bound  pair  list  is  specified,  then  the  corresponding  identifiers  all 
have  the  specified  number  of  array  indices  with  the  specified  bounds. 

Initialization  is  performed  at  allocation  time  if  specified.   Thus, 
each  time  node  X  is  allocated  in  the  above  example,  it  is  automatically 
set  to  the  value  3. 
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5.2.      Boolean  Declarations 

5.2.1.  Syntax 

<Boolean  declaration>  : :=  <storage  class>  B00LEAN  <initialization  list> 

5.2.2.  Examples 

B00LEAN  A,B,C 

0WN  B00LEAN  HAVE_I_C0ME_HERE_BEFORE  *■  FALSE 

5.2.3.  Semantics 

Boolean  identifiers  can  only  take  on  Boolean  values.   Other  than 
that  their  declaration  is  analogous  to  integers. 
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5.3.      String  Declarations 

5.3.1.  Syntax 

<string  parameter  part>  : :=  <empty>  ;  (<length>)     (<length> ,<size>) 

<length>  : :=  *  j  *  <integer  expression>  ,  <integer  expression> 

<size>  : :=  <integer  expression 

<string  specification>  : :=  <id  part>  <string  parameter  part>  <array  part> 

<string  initialization>  :  :=  <string  specification 

1  <string  specification>  <-   <string  expression> 
<string  initialization  list>  ::=  <string  initialization> 

j  <string  initialization  list> ,<string  initialization> 
<string  declaration  : :=  <storage  class>  STRING  <string  initialization  list> 

5.3.2.  Examples 

STRING  A,B,C" 

STRING  X(20,8),(Y,Z)(*10,3)  +  MS 

5.3.3.  Semantics 

String  variables  take  on  string  values.   Their  declaration  is 
analogous  to  integers.   The  default  string  parameters  are  maximum  length 
=  32  characters,  size  =  8  hits,  and  variable  length.   I.e.,  if  size  is 
not  specified,  8  is  assumed,  and  if  length  is  not  specified,  *32  is 
assumed.   An  asterisk  ("*")  prior  to  the  length  indicates  that  the  string 
is  variable  length  within  the  constraints  of  the  maximum  length  specification, 
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5.h.      Semaphore  Declarations 

5.1+.1.  Syntax 

<semaphore  declaration>  : :=  SEMAPH0RE  <initialization  list> 

5. k. 2.      Examples 

SEMAPHORE  El , PRINTER-FINISHED  +   1, 

SEMAPHORE  E[20:25J,  P23 
5.U.3.   Semantics 

Semaphore  declarations  define  semaphores  for  use  in  synchroni- 
zation statements.  Unless  otherwise  initialized,  all  semaphores  are  set 
to  zero  at  declaration  time. 
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5.5.  Process  Declarations 
.5.1.   Syntax 
^process  declaration  :  :=  PR0CESS  <id  part>  <array  part> 

J  <process  declaration> ,<id  part>  <array  part> 
i . 5 . 2 .   Examples 

PR0CESS  A,B 

PR0CESS  P[0:15] 
-.5.3.   Semantics 

Processes  are  declared  analogous  to  integers.   Process 
.dentifiers  are  used  to  label  processes  for  process  statements. 
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5.6.     Pointer  Declarations 

5.6.1.  Syntax 

<pointer  declaration>  : :=  <storage  class>  P0INTER  <initialization  list> 

5.6.2.  Examples 

P0INTER  P1,P2[0:3] 
P0INTER  PTR30  «-  NULL 

5.6.3.  Semantics 

Pointers  take  on  pointer  values  and  are  declared  in  a  manner 
analogous  to  integers.   Pointers  may  not  be  own. 
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5.7-      Structure  Declarations 

5.7.1.  Syntax 

declaration  list>  :  :=  <declaration>  j  declaration  list>  ;<declaration> 
<structure  part>  : :=  (< declaration  list>) 

<structure  element>  : :=  <id  part>  <structure  part>  <array  part> 
<structure  element  list>  : :=  <structure  element> 

j  <structure  element  list> ,<structure  element> 
<structure  declaration>  : :=  <storage  class>  STRUCTURE  <structure  element  lict> 

5.7.2.  Examples 

STRUCTURE  PAYR0LL  (STRING  NAME;  INTEGER  SALARY) 
N0DE  STRUCTURE  LISTELEMENT   (STRING  ENTRY; 

STRUCTURE  PTRS   (P0INTER  BACK,  LEFT,  RIGHT)) 

5.7.3.  Semantics 

Structure  identifiers  allow  whole  data  structures  to  be  referred 
to  by  one  identifier.  Each  individual  part  of  the  structure  may  be  used 
in  the  manner  that  its  data  type  indicates. 
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5.8.      Trap  Declarations 

5.8.1.  Syntax 

<trap  declaration    ::=     0N  <trap  identifier>   <formal  parameter  part> 

D0  <statement> 

5.8.2.  Examples 

0N  INDEX  D0  TERMINATE 

0N  DIVIDE-BY-ZER0  (NUMERAT0R)  D0 

LEAVE  DIVIDE-BY-ZER0  (CASE  NUMERAT0R  0E  0,1,99999) 

5.8.3.  Semantics 

Trap  declarations  specify  what  action  is  to  be  taken  when  a 
trap  occurs.  When  the  indicated  trap  is  caused  the  statement  following 
the  "D0"  is  executed.   Upon  leaving  the  trap,  control  is  returned  where 
the  trap  occurred.  Trap  conditions  and  the  parameters  passed  are 
installation  dependent.   There  are  four  traps  that  OSL/2  can  inherently 
generate:   index  out  of  range,  divide  by  zero,  integer  overflow,  and 
convert  failure. 
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5.9-      Pattern  Declarations 

5.9.1.  Syntax 

<pattern  declaration  : :=  <storage  class>  PATTERN  <initialization  list> 

5.9.2.  Examples 

PATTERN  ALPHABETIC  «-  SPAN  ("ABC") 

PATTERN  X,y,Z[l:3] 
5.9 '3.   Semantics 

Patterns  are  declared  in  a  manner  analogous  to  integers.   Identifiers 
declared  to  "be  patterns  may  only  take  on  patterns  as  their  values. 
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5.10.   Access  Definitions 

5.10.1.   Syntax 

<access  definition>  :  :=  <access>  <access  typo 

<access  formal  parameter  part>; <access  definition  body> 
<access>  : :=  ACCESS  |  QUEUE  |  STACK  |  TABLE 
<access  type>  : :=  <identifier> 
<access  formal  parameter  part>  : :  =  <empty> 

<access  formal  parameters> ;<access  formal  parameter  specification 
<access  formal  parameters>  : :=  (<formal  parameter  list>) 

(<formal  parameter  list> ) [<array  parameter  list>] 

[<array  parameter  list>] 
<formal  parameter  list>  : :=  <id  list> 
<array  parameter  list>  : :=  <array  parameter> 

<array  parameter  list> ,<array  parameter> 
<array  parameter>  : :=  <identifier> 

<array  parameter> :<identifier> 

■ 

<access  formal  parameter  specification  :  :=  <access  formal  parameter  declarat:* 

<access  formal  parameter  specification , 

<access  formal  parameter  declaration 
<access  formal  parameter  declaration>  : :=  <integer  declaration> 

<Boolean  declaration   <string  declaration> 

<pointer  declaration>   <structure  declaration> 

<pattern  declaration> 
<access  definition  body>  : :=  BEGIN  <prefix  declaration  list>; 

<procedure  declaration  list>  <access  end> 
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<access  end>  : :=  END  |  ;  END 

<prefix  declaration  list>  :  :=  <prefix  declaration> 

|  <prefix  declaration  list> ;<prefix  declaration> 

<prefix  declaration>  :  :=  <integer  declaration 

I  <Boolean  declaration>  j  <string  declaration> 
|  <pointer  declaration>  \    <structure  declaration> 
!  <pattern  declaration  J  <semaphore  declaration> 

<procedure  declaration  list>  :  :=  <procedure  declaration 
j  <access  procedure  declaration> 

J  <procedure  declaration  list> ;<procedure  declaration> 
j  <procedure  declaration  list> ;<access  procedure  declaration 

<access  procedure  declaration>  : :=  <procedure  type>  <access  type> 
PROCEDURE  <identifier>  <formal  parameter  part> 
<array  parameter  part>;<name  or  value> 
<formal  declaration  list>  <procedure  body> 

<array  parameter  part>  : :=  <empty>  j  [<id  list>] 
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5.10.2.   Examples 

QUEUE  FIF0  (DEFAULT);  INTEGER  DEFAULT  +-  0; 
BEGIN 

INTEGER  DV  +   DEFAULT ,  QLENGTH  «-  0; 

P0INTER  (HEAD, TAIL)  <-   NULL; 

N0DE  STRUCTURE  ENTRY  (INTEGER  DATA; 

POINTER  NEXT)  ; 
FIF0  PR0CEDURE  ST0RE(X) ;  INTEGER  X; 
BEGIN 

TAIL  «-  TAIL. ENTRY. NEXT  +-   ALLOCATE  (ENTRY); 
QLENGTH  +■   *+l ; 
ENTRY. DATA  <-  X; 
END  ST0RE; 

INTEGER  FIF0  PR0CEDURE  FETCH  [N];  INTEGER  N  «-  0; 
IF  N<=0 
THEN 

IF  QLENGTH=0  THEN  FETCH  <-   DV 

ELSE 

BEGIN 

P0INTER  H  «-  HEAD; 
FETCH  +   HE  AD. ENTRY. DATA; 
HEAD  -f-  HEAD. ENTRY. NEXT; 
QLENGTH  -e  *-l ; 
RELEASE  (H. ENTRY) 
END  FI 
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ELSE 

IF  QLENGTH<N  THEN  FETCH  +-   DV 

ELSE 

BEGIN 

POINTER  T  «-  HEAD; 
F0R  N  TIMES  D0 
BEGIN 

FETCH  «-  T. ENTRY. DATA; 
T  «-  T. ENTRY. NEXT 
END 
END 
PI; 

INTEGER  FIF0  PROCEDURE  LENGTH;  LENGTH  -e  QLENGTH; 
END  FIF0 

QUEUE  MESSAGE  (MSIZE)  [N]  ;  INTEGER  MSIZE  «-  1,  N  <-   20 ; 
BEGIN 

STRING  MESSAGES  (MSIZE ,l) [0 :N-l] ; 

SEMAPH0RE  INPUT  +   N,  0UTPUT  «-  0; 

INTEGER  (IN,0UT)  +   0,  MV  «-  N ; 

STRING  ( MSIZE, l)  MESSAGE  PR0CEDURE  FETCH; 

BEGIN 

P  (0UTPUT); 

FETCH  «-  MESSAGES  [0UT  «-  (*+l)  M0D  MV]  ; 
V  (INPUT) 
END  FETCH; 
MESSAGE  PR0CEDURE  ST0RE(X);  STRING  X  (MSIZE, l); 
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BEGIN 

P  (INPUT); 

MESSAGES  [IN  «-  (*+l)  M0D  MV]  «-  X; 

V  (0UTPUT) 
END  ST0RE 
END  MESSAGE 
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5.10.3.   Semantics 

Access  definitions  define  new  access  types  for  later  use  in 
access  declarations.   Access  variables  are  declaredly  an  access  declara- 
tion.  Access  definitions  define  the  format  of  access  declarations  and 
define  the  semantics  associated  "with  an  appearance  of  an  access  variable 
in  an  OSL/2  program. 

The  access  definition  declares  those  formal  parameters  which 
may  be  used  in  a  corresponding  access  declaration.  Parameters  may  be 
passed  for  use  at  declaration  time  via  a  normal  parameter  list  enclosed 
in  parentheses  or  via  a  parameter  list  enclosed  in  square  brackets  (i.e. 
array  parameter  list)  or  both.   Normal  procedure  parameter  defaults  and 
conventions  are  allowed  with  the  exception  that  key  word  parameters  may 
not  be  used  in  the  array  part  enclosed  in  square  brackets . 

Each  new  access  type  must  have  a  corresponding  access  declaration. 
All  variables  declared  in  the  prefix  declaration  list  may  only  be  referenced 
by  procedures  in  the  procedure  declaration  list.   For  each  instance  of  an 
access  variable,  a  complete  set  of  variables  in  the  prefix  declaration 
list  is  allocated.   This  is  equivalent  to  the  insertion  of  the  prefix 
declaration  list  in  place  of  the  access  variable  declaration  with  suitable 
systematic  changes  of  the  identifiers  to  insure  that  the  prefix  declaration 
list  identifiers  do  not  conflict  with  existing  identifiers  and  that  they 
may  only  be  manipulated  by  the  procedures  in  the  procedure  declaration 
list . 

Procedure  declarations  appearing  within  the  procedure  declaration 
list  are  defined  to  only  be  within  the  scope  of  the  other  procedures  in 
the  procedure  declaration  list.   Access  procedure  declarations  declare 
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procedures  which  may  be  referenced  external  to  the  procedure  declaration 
list  and  within  the  scope  of  the  corresponding  access  variable.   Access 
procedures  are  indicated  in  the  access  definition  by  repeating  the 
identifier  of  the  access  type  being  defined  prior  to  the  use  of  the 
reserved  word  "PR0CEDURE"  in  the  procedure  declaration. 

When  access  procedures  are  invoked,  an  additional  parameter, 
not  present  in  the  formal  parameter  list,  is  added  to  the  actual  para- 
meter list.   This  parameter  appears  first  in  the  actual  parameter  list 
and  must  be  an  access  variable  of  the  same  type  as  the  access  procedure. 
Each  access  variable  is  thus  matched  only  to  the  access  procedure  of  the 
same  type.   If  the  access  variable  is  subscripted,  the  subscript  list 
is  passed  to  the  procedure  through  the  array  parameter  part  of  the  access 
procedure  declaration.   The  parameters  passed  through  the  subscript 
list  obey  all  rules  of  procedure  actual  parameters  and  may  be  passed  by 
key  word. 

Two  access  procedures  for  each  access  type  have  special  semantic 
interpretations.   The  procedure  named  "fetch"  is  invoked  automatically 
when  an  access  variable  is  encountered  in  an  expression  evaluation  such 
as  the  right  hand  side  of  an  assignment  statement.   The  type  of  procedure 
"fetch"  defined  the  type  of  the  access  variable  on  the  right  hand  side  of 
an  assignment  statement.   If  "fetch"  has  any  parameters,  they  must  all  be 
defaulted.   The  procedure  "store"  is  not  typed  and  is  invoked  when  the 
access  variable  appears  on  the  left  hand  side  of  an  assignment  statement. 
The  first  parameter  in  "store"  defines  the  type  of  the  value  stored  into 
an  access  variable.   All  other  parameters  must  be  defaulted.   Both  "fetch 
and  "store"  may  be  explicitly  invoked  as  a  normal  function  or  procedure 
call  in  the  OSL/2  code. 
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5.11.      Access   Declarations 

5.11.1.  Syntax 

<access  declaration  : :=  <access  type>  <access>  <access  specification  list> 
<access  specification  list>  : :=  <access  specification 

<access  specification  list>  ,<access  specification 
<access  specification>  : :=  <id  part>  <access  standard  parameter  part> 

<access  array  parameter  part> 
<access  standard  parameter  part>  : :=  <empty>    (<actual  parameter  list>) 
<access  array  parameter  part>  : :=  <empty> 

[<access  array  parameter  list>] 
<access  array  parameter  list>  : :=  <access  array  parameter> 

s  <access  array  parameter  list> ,<access  array  parameter> 
<access  array  parameter>  : :=  <parameter> 

<access  array  parameter> : <parameter> 

5.11.2.  Examples 

FIF0  QUEUE  A,B,C 

C0MPLEX  TABLE  ( X , Y ) ( NUMBER_0F_P0 INTERS : 22 ) 

SPECIAL  ACCESS  X(l5 92k) [0 :2 :100 ,SQRT] 

5.11.3.  Semantics 

For  each  identifier  in  the  access  declaration  id  part,  an 
instance  of  an  access  variable  is  declared.   Parameters  are  processed  as 
described  in  Section  5.10.3. 
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5.12.   Procedure  Declarations 

5.12.1.  Syntax 

<formal  parameter  list>  : :=  <id  list> 

<name  or  value>  : :=  <value  part>  <name  part>  j  <name  part >< value  part> 

<value  part>  : :=  VALUE  <id  list> ; | <empty> 

<name  part>  : :=  NAME  <id  list> ; | <empty> 

<formal  parameter  part>  : :=  (<formal  parameter  list>)  !  <empty> 

<formal  parameter  declaration>  : :=  <integer  declaration> 

<Boolean  declaration>  |  <string  declaration> 

<semaphore  declaration>  I  <process  declaration> 

<pointer  declaration>  |  <structure  declaration> 

<pattern  declaration>  j  <access  declaration> 
!  <procedure  declaration 
<formal  declaration  list>  : :=  <empty>  j  <formal  parameter  declaration ; 

<formal  declaration  list>  <formal  parameter  declaration> ; 
<primitive  or  procedure>  : :=  PRIMITIVE  j  PR0CEDURE 
<procedure  type>  : :=  INTEGER  |  B00LEAN  |  STRING  <string  parameter  part> 

P0INTER  j  STRUCTURE  structure  part>  |  PATTERN  j  <empty> 
<procedure  heading>  : :=  <procedure  type>  <primitive  or  procedure>  <identifier 

<formal  parameter  part>;<name  or  value>  <formal  declaration  list> 
<procedure  body>  : :=  <statement>  |  F0RWARD  |  F0RMAL 
<procedure  declaration  : :=  <procedure  heading>  <procedure  body> 

5.12.2.  Examples 

PR0CEDURE  ADD0NE;  X  +  X  +   1 

STRING  PR0CEDURE  A(S23);  STRING  S23; 
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BEGIN 

STRING  SI,  S2  +   MT; 

WHILE  S23  FIXED  {SI  ■*■  {"A"  |  "B"  |  "C"}}  +■  MS   D0 

S2  «-  SI  &  S2; 

END 

INTEGER  PROCEDURE  ADD(X)  ;  INTEGER  X«-1;A«-A+X 
5.12.3.   Semantics 

A  procedure  declaration  serves  to  define  the  procedure  associated 
with  a  procedure  identifier.   The  principal  constituent  of  a  procedure 
declaration  is  a  statement  or  a  piece  of  code,  the  procedure  body,  which 
through  the  use  of  procedure  statements  and/or  function  designators  may  "be 
activated  from  other  parts  of  the  block  in  the  head  of  which  the  procedure 
declaration  appears.   Associated  with  the  body  are  identifiers  to  represent 
formal  parameters.   Formal  parameters  in  the  procedure  body  will,  whenever 
the  procedure  is  activated  (cf.  3.2.  Function  Designators  and  k.5.   Procedure 
Statements)  be  assigned  the  values  of  or  replaced  by  actual  parameters. 
Identifiers  in  the  procedure  body  which  are  not  formal  will  be  either  local 
or  non  local  to  the  body  depending  on  whether  they  are  declared  within  the 
body  or  not.   Those  which  are  non  local  to  the  body  may  well  be  local  to 
the  block  in  the  head  of  which  the  procedure  declaration  appears.   The 
procedure  body  always  acts  like  a  block,  whether  it  has  the  form  of  one 
or  not.   If  the  identifier  of  a  formal  parameter  is  declared  anew  within 
the  procedure  body,  it  is  thereby  given  a  local  significance  and  actual 
parameters  which  correspond  to  it  are  inaccessible  throughout  the  scope 
of  this  inner  local  quantity. 

When  a  procedure  declaration  appears  in  a  procedure  heading  to 
declare  a  formal  parameter,  the  procedure  body  is  FORMAL.   To  allow  for  one 
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pass  compilation,  a  procedure  "body  may  be  FORWARD.  Thus  the  compiler  is 
notified  of  the  formats  of  the  procedure  parameters  hut  the  actual  declar- 
ation of  the  procedure  with  a  statement  procedure  body  is  deferred. 

Formal  parameters  may  receive  default  values.   If  the  formal 
parameter  declaration  is  initialized,  the  initializing  expression  is 
taken  as  a  default. 
5.12.U.   Values  of  Function  Designators 

For  a  procedure  declaration  to  define  the  value  of  a  function 
designator  there  must,  within  the  procedure  body,  occur  one  or  more 
assignments  to  the  function  identifier  or  an  expression  must  be  explicitly 
specified  in  an  escape  statement.   If  no  such  expression  is  supplied,  the 
last  assignment  to  the  function  identifier  is  used. 

Primitive  procedures  are  within  the  scope  of  initiated  processes. 
5.12.5.   Specifications 

In  the  heading,  a  specification  part,  giving  information  about 
the  kinds  and  types  of  the  formal  parameters  must  be  included.   In  this 
part  no  formal  parameter  may  occur  more  than  once.   Specifications  of 
formal  parameter  must  be  supplied.  Types,  array  dimensions,  bases,  and 
lengths  of  all  formal  parameters  are  required  in  the  specification  part. 
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5.13.      File  Declarations 

5.13.1.  Syntax 

<file  declaration  :  :=  FILE  <identifier>  <input  output  part> 

<access  technique>  <record  format>  <system  parameters> 
<input  output  part>  : :=  INPUT  |  0UTPUT  |  <empty> 
<access  technique>  : :=  SEQUENTIAL  |  INDEXED  | 

< empty > 
<record  format>  : :=  ( <declaration>) 

( <declaration>  ,  <"blocking> ) 

(  <declaration>  ,<blocking>  ,<number  of  records>) 
<blocking>  : :=  <integer  expression> 
<number  of  records>  : :=  <integer  expression> 
<system  parameters>  : :=  [<actual  parameter  list>]  |  <empty> 

5.13.2.  Examples 

FILE  CARDS  INPUT  SEQUENTIAL  (STRING  A(80),20) 

FILE  TTY  SEQUENTIAL  (STRING  A(80))  ["NBUFR=2 ,UNIT=TTY32" ] 

5.13.3.  Semantics 

Files  reside  on  secondary  storage.   Their  declaration  is  normally 
very  device  dependent.   FILE  declarations  in  OSL/2  provide  the  compiler 
with  the  basic  information  desirable  to  check  the  source  code.   Details 
of  the  file  which  are  dependent  upon  a  particular  system  are  in  the 
system  parameters. 

Reading  or  writing  from  or  to  a  file  is  done  with  simple  assign- 
ment statements  to  and  from  simple  variables,  arrays,  and  structures  of 
the  same  type  and  format  of  the  record  format  declaration. 
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6.   Compile  Time  Facilities 

The  dollar  sign,  "$" ,  indicates  a  compile  time  facility.   It 
is  possible  to  declare  compile  time  variables  and  execute  most  OSL/2 
statements  at  compile  time. 
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6.1.  Compile  Time  Declarations 

6.1.1.  Syntax 

<define  declaration    :  :=  DEFINE   <define  specification  list> 
<define  specification  list>    :  :=   <define  specifications 

i    <define  specification  list>,<define   specification 
<define  specification>    : :=   <identifier>   <define  parameter  list> 

=  < define  body>   # 
<define  parameter  list>    : :=   <id  list> 
<define  body>    : :=   {any  text  including  balanced  DEFINE... #  brackets 

but  not   including  a  lone#} 
<compile  time  declaration>    : :=   $   <declaration> 
<compile  time  statement>    : :=  $  <statement> 

6.1.2.  Examples 

DEFINE      add(A,B)    =    ( $A)    +    ($B)# 

DEFINE     XX  =  X  «-  X  +   2# 

$INTEGER     X,Y,Z  +-  0,    Q  «-   3 

$IF     $X  =   $Y   $THEN  P  +■  0   $ELSE  P  +■  3   $FI 

6.1.3.  OSL/2  defines   are  identical  to  B5500  defines   [23]. 

The   define  declaration  associates   a  text   string  with  the  define   identifier. 
The  later  appearance  of  the  define   identifier  in  the  OSL/2   code  will 
cause  the  defined  text   to  replace  the  identifier  and  that  text  will  then 
be  compiled.      If  actual  parameters   are   appended  to  the   define,   then  each 
occurrence  of  the   corresponding  formal  parameter  in  the  text  will  be 
replaced  by  the   actual  parameter.      Formal  parameters   in  the  text  of  the 
define  body  must  be  preceeded  by   "$".      The   actual  parameters  passed  to 
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a  parameterized  define  follow  the  identifier  and  may  be  enclosed  in 
either  parentheses  or  square  brackets.   Each  actual  parameter  is  separated 
by  a  comma. 

If  a  variable  declaration  is  preceded  by  a  "$",  then  all  variables 
so  declared  are  available  for  use  at  compile  time.  Their  appearance  later 
in  the  OSL/2  code  is  replaced  by  a  constant  equal  to  their  current  value. 
Any  assignment  statements  "with  a  compile  time  variable  on  the  left  hand 
side  must  be  executable  at  compile  time.   Thus  they  may  only  consist 
of  constants  and  compile  time  variables. 

Any  OSL/2  statement  preceeded  by  a  "$"  is  executed  at  compile 
time. 

Should  there  be  any  ambiguity  of  meaning  resulting  from  a 
compile  time  facility,  that  ambiguity  must  be  resolved  by  preceeding 
the  appropriate  compile  time  variables  or  reserved  words  within  a  state- 
ment  by  a  "$".   All  ambiguous  syntax  will  be  resolved  as  if  all  non 
marked  ambiguous  variables  and  reserved  words  were  not  compile  time 
variables  and  reserved  words. 

In  all  cases  a  "$"  may  preceed  any  compile  time  variable  or 
reserved  word. 
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Appendix  B 
An  OSL/2  Compiler 

In  order  to  provide  hard  knowledge  of  the  implementation 
difficulties  of  OSL/2,  a  compiler  was  generated.  The  exercise  of 
building  the  compiler  did  indeed  have  an  impact  on  the  language.   In 
many  places,  the  syntax  was  restructured  to  allow  for  an  easier  parse 
and  to  make  code  easier  to  generate. 

The  object  code  was  generated  for  the  OSL/2  machine  -  a 
stack  machine  with  arbitrary  length  words.   There  are  a  variety  of 
methods  available  for  mapping  variable  length  data  into  some  fixed  word 
size.   Since  this  is  a  straight  forward  operation  that  involves  consider- 
able coding  time  and  would  add  little  or  nothing  to  the  language,  the 
OSL/2  machine  had  an  undefined  word  length  sufficient  to  hold  any  single 
data  item. 

Whenever  a  complex  but  straight  forward  operation  was  required, 
it  was  postulated  to  exist  as  a  single  machine  instruction.   If  one  scans 
through  the  code  generators  he  will  notice  that  the  operators  are  produced 
in  the  code  listing  as  phrases  -  e.g.  " DUPLICATE-TOP- OF-STACK- AND-LOAD- 
INTEGER"  which  takes  the  address  of  an  integer  on  the  top  of  the  stack, 
duplicates  the  address  and  then  performs  a  "LOAD- INTEGER"  operation 
using  the  address  on  the  top  of  the  stack.   No  mnemonic  codes  were  used 
in  the  hope  that  it  would  make  the  code  more  descriptive. 

The  addressing  scheme  used  was  the  same  one  described  in  Chapter 
h.  Level  and  displacement  couples  are  indicated  on  the  code,  and  instruc- 
tions are  addressed  by  segment  and  instruction  number.   Each  block  is  one 
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segment.   Instruction  addresses  appear  in  the  object  listing.   A  simple 
program  is  included  which  shows  the  object  listing  format. 

The  compiler  was  "built  using  a  B5500  translator  writing  system 
which  produces  a  bottom  up  Floyd  Production  language  parser  [25].   The 
syntax  was  written  in  TWINKLE  [26]  and  the  semantics  in  ISL  [27].   This 
system,  unlike  recursive  descent  translator  systems,  will  not  accept  an 
ambiguous  language.   This  feature  and  the  bottom  up  parsing  technique  helped 
remove  ambiguities  from  the  language  and  made  the  production  of  object 
code  straight  forward. 

The  complete  OSL/2  language  was  not  implemented.   The  implemen- 
tation proceeded  until  most  of  the  difficult  points  were  ironed  out.   The 
final  language  does  differ  slightly  from  the  implemented  language  in  places 
where  the  syntax  was  slightly  changed  to  make  OSL/2  code  more  readable. 

The  semantics  language  ISL  is  an  extension  of  B5500  ALGOL.   While 
coding  the  system,  the  author  attempted  to  provide  macros  that  duplicated 
OSL/2  facilities.   Unfortunately,  the  B5500  ALGOL  macro  facilities  were 
inadequate  for  this  task.   However,  the  exercise  of  producing  the  code 
was  carried  out  as  if  OSL/2  were  available.   In  over  3000  lines  of  seman- 
tics there  were  no  instances  where  OSL/2  constructs,  such  as  the  lack  of 
a  GO  TO,  were  a  hinderance.   In  fact,  the  concentration  on  OSL/2  structure 
produced  a  more  clean  and  well  defined  structure  to  the  entire  code  than 
is  usually  written  by  this  programmer.   Furthermore,  there  were  many  many 
instances  where  OSL/2  constructs,  in  particular  general  access  variables, 
would  have  considerably  helped  the  coding  effort,  reduced  coding  time,  and 
improved  the  readability  of  the  code. 

The  primary  lessons  learned  from  the  implementation  effort  were 
that  OSL/2  is  implement able,  general  access  variables  are  actually  rather 
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straight  forward  to  implement,  the  program  structure  imposed  by  OSL/2  is 
clean  yet  powerful,  and  the  constructs  of  OSL/2  are  useable  and  desirable. 
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0SL2    /SYNTAX       LISTED  BY  THESIS   ON    JANUARY   3#  1971   AT    1 1 19  A.M. 

.rSKD  oooooico  I 

LANGUAGE. OSl?>  "222S??SS  I 

SFECIAL  SYMPOlSiCOMMEMJ  OOOOI3PO 

AN  <0SL2-PRrGF<AM>  lt«  <PLPCK>  OR  <COMPOUND-ST ATEMENT>  00000*00  | 

OR  <PPPCEDURE-OECLAPATIrN>  )  00000300  j 

<tEGlN>  tJ  =  IBEGIN  /  <PEGIN>  <COMKENT>  )  000006CO 

<END>  Ms  #FKD  /  <END>  [<COMMFNT>  /  <*I>  /  <*b>    3  I  00000700 

<crMI>  t:=  ti    /  <SEMI>  <CPM^ENT>  )  00000600  \ 

<&TAtEmENT-ITST>  ««=  LIST  <STATEMENT>  SEPARATOR  <SEMl>  i  00O009C0  j 

<COKPOUNP-STATE^ENT>  «:=  <BFGTN>  LIST  OF  <STATEMEKT>S  00001000 

SEPAPATFP  BY  <SEMI>  <END>  00001100 

/  <DPEN-LABEL>  <COMPOUND-ST ATEMENT>  <CLPSE"L ABEL>  )  00001200  ! 

<STATEMENT>  «»*  <ASSI GNMENT-STATEMENT>  00001300 

/  <CASE-STATEVENt>  JXXXI*^. 

/  <PRoCEDUPE-STATEMENT>  OOOOlbOO, 

/  <ITEPATIVE-STATFMFNT>  OOOOUCOi 

/  <ESCAPE-STATFMElvT>  !!!!}72! 

/  <PROCESS-STATFMENT>  00001600 

/  <EVENT-STATFMENT>  2SSS4? nS 

/  <PATTFRN-KATCHING-STATEMENT>  00002000, 

/  <CONDlTIONAI.-STATFMENT>  00002100!] 

/  <COKiPOUND-STATEHEMT>  52255?S2i: 

/  <BLOCK>  000023001 

/  .ALLPCATIUN-STATE^ENT>  XXSX5J!!? 

/  <DUMMY-STATFMFNT>  )  SSaSo  «r: 

<DUMMY-STATFMENT>  tl  =  EMPTY  i  °noX,?oo 

<ASSIGNK.EM-STATEMENT>  «t=  <INTEGER-ASSlGNMENT>  °°°°oI™ 

/  <B00LFAN-ASS1GNVENT>  0000; 

/  <STpING-ASSlGMMENT>  °222*  3 

/  <P0INTER-ASSIGN,EHT>                                   .  0000300J. 

/  <PATTERN.ASSIGN,ENT>  ,  0000   ^ 

<ARRO*>  »«=  #*  /  *,s  t                                                                       *  nnnn3iiC( 

DECLARATION  It-  <I  MEGER-PECL  ARATI  0N>  SnOniSOC1 

/  <POOLEAN-UECLARATION>  SoOO^PC1 

/  <STRING-0ECLARATI0N>  oOOOs'cO: 

/  <P0INTER-DECLARATI0N>  2o003fcCo! 

/  <EVENT-DECLARATlor>  OOOO39C0: 

/  <PR0CESS-DECLARATIPN>  oOOO^Ki 

/  <PROCEDURE-DfCLAPATION>  SoOOMCC 

/  <PATTERN-DFCLARATlON>  noOCA?^1 

/  <STRUCTURE-0ECLARATI0*N>  ooOO«3^ 

/  <ACCFSS-DECl  APATIPN>  nOOC«<<^ 

/  <code-declara-tion>  O000«*'fi: 

/  <FII.E-DECLAPATIPN>  0000**^ 

/  <ACCESS-PLFIMTIPN>  0COO*/fC 

/  <EVENT-ACTION-DECL ARATIPN>  0OOC*tCC 

/  <MACR0-DEFINITIPN>  OOOO«V0d 

/  <DEFAULT-PEFINITIPN>I  OCCOiCOt 
<IP-PART>  »:  =  <*I>  PS  ENTFPIUINPFCLSTACK               fr0iBUf.  Rv  f,t)    joCCoMOl- 
/#(  LIST  OF  [<*1  >  PS  EKTFPIDINDFCLSTACK  )  SEPARATED  BY  t'*>       CCOc,b?c( 

<STORAGl-CLASS>  »»  =  FMPTY  /  *0WN  PS  OWNDECLARAT I  OK  OOOO530( 

/  #NOpF  PS  NOPFPECLAPATION  I                       1R...nh  OOOObfcCi 

<KD-CLASS-INTLGEP-OECLAPATirN>  Mr  INTEGER  PS  IMTEGERPECLARAT ION  000o^C 

FOLLOwFP  BY  LIST  OF  0000^60 

<INTEGFR-IMTIALIZATIPN>S  SEPARATED  BY  COMMAS  OOOO570 

PS  ENDOFDATAPFCl ARATIOK  I 
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<INTEGER-DECLARATI0N>  : J»  <STPRAGE"CL A SS><NO-CL ASS" I NTFGEP-DECL AR ATI ON>; 00005800 

<NO-CLASS-BOPLEAN-DrCLARATlfN>  He  #8P0LFAN  PS  BOPLEANDECL ARAT ION  00005900 

FOLLOWED  BY  LIST  OF  <BOOLFAN-I M TI AL I ZAT I ON>S  SEPARATED  BY     00006000 

COMMAS   PS  ENDClFDATADECLAPATIOfJ  I  00006100 

<BOOLEAK-DEct  ARATlON>  Its  <STORAGE"CL ASS><NO-CLASS-BOOLEAN-DECLARATlON>; 00006200 

<NO-CLASS-STRING-PECLARATIOK>  II*  ISTPlNf,  PS  STRH  GDECLARAT  ION'  00006300 

FDLLOwfP  BY  LIST  OF  <STfi ING- IM T I ALIZAT ION>S  SEPARATED  BY  00006400 

Ct^HAS  PS  ENDPFDATAPECLARATIOK  ;  00006500 

<STRIK'G-PECLARATIPN>  tl>  <STORAGE-CLASS>  <NO-CLASS-STRINf,-DECL  ARAT  ION>;  00006600 

<IVENT-DECLAPATIPN>  H«  fEVFNT  PS  EvENTDFCL ARAT ION  FOLLOWFD  BY  LIST  OF   00006700 

1<ID-PART>  FOLLOWED  BY  <APRAY-PART>  00006600 

PS  RESETIDLISTCPUKTFR)  SEPARATFD  BY  00006900 

COMMAS  PS  ENPPFDATATECIARATTON  j  00007000 

<NO-CLASS-CPDE-DFCLARATTON>  11=  jTCODE  pS  CODEDECLARATION  FOLLOWED  00007100 

BY  LIST  OF  [<ID-PART>  FOLLOWED  BY  <ARRAY"PART>  00007200 

PS  RESFTIDLISTCOUMFR  3  00007300 

SFPARATFO  BY  COMMAS  PS  ENDOFDATADECL ARA T I  ON  ;  00007400 

<CPDF-DF-CLARATIpN>  II*  <STORAr,F-CL  ASS>  <NO-CLASS-cODE-DEcLArAT  ION>J  00007500 

<no-class-pointfr-declapatlpn>   us  #pointer  00007600 

ps  pointerdeclapatinn  followed  by  list  of  00007700 

<ppinter-imtiali7atidn>s  separated  by  commas  00007600 

ps  endofdatadeclaration  j  00007900 

<substructure-declaratipn>   11=  00008000 

<no-class-integfr-declaratiom>  0000  6 1 00 

/  <no-class-bpoiean-oeclaration>  00008200 

/  <NO-Cl  AsS-STRlNf,-rECLARATION>  OOOO83OO 

/  <NO-CLASS-CODE-OErLARATION>  00008400 

/  <NO-CLASS"PPlNTrR-DECLAPATIOM>  00006500 

/  <NO-CLASS-STpUCTIipE-OECLARATTON>  00006600 

/  <no-class-process-declaration>                -  00008700 

/  <no-class-pattern-declaration>  00006800 

/  <accfss-declaratipn>  00008900 

/    <PRpCEDURt-DECLARATIOK>  00009000 

/    <FILE"DECLAPATIPN>    )  00009100 

<MODF-CLASS>    llr    INODt    PS    NPDFDECL ARAT lOM    /    EMPTY    i  00009200 

<P01HER-DECLARATI0N>    lie    <NOPE-CLASS>    <NP-CLASS-POINTER-DECL ARAT I0N> J       00009300 

1  <F-R0CtSS-DECLARATlON>    II*    <NOPE-CLASS>    <NO-CLASS~PROCESS-DECLARATION>J       00009400 

1  <STRUCTURL-DECLARATI0N>    ii*    <STOPAGE-CLASS>  00009500 

<KO-CLASS-STRUCTUpE-DECLAPATION>                                            *  00009600 

PS    ENOPFFNTIRESTRUCTUPEDECLAPATION    ;  00009700 

<N0"CLASS-STRUCTURE-DECLARATIPN>    II*    #STPUCTURE    PS    STRUCTUREDECLARATION    00009800 

LIST    OF    <STRUCTURE-FLEMFNT>S    SFPARATED    FY    COMMAS  00009900 

PS    ENPOFDATADFCLAPATION    ;  OOOlOOOO 

<STRUCTLRE-ELEMENT>    tt*    <ID-PART>    <STRUCTURE-PART>    <APRAY-PART>  OOOlOlOO 

PS    REsFTIDLIsTCOUNTFR    I  00010200 

J  <NO"CLASS-PATTERN-DECLARATlPN>     I  1=    IPATTFPN    PS    P A TTERNDECLARAT I  ON  00010300 

LIST    OF    <PATTERN-INITIALIZATI0M>S    SEPARATED    BY    COMMAS  00010400 

PS    ENDOFDATADFCLAPATION    I  00010500 

<pATTERN-DEcLARATTON>     u*    <STPR  AGE-CL  A  SSxNO-CLA  SS'PATTERN-DE  CLARAT  I  0N>>  000  1  0600 

I  <ACCFSS-DFFiNlTiON>    tie   <accfss-hfading>    <accfss-pody>    ;  00010700 

;  <ACCESS-HEADIKG>     «t=    i     IACCFSS    /    *QUEUE    /    ISTACK    3  00010800 

<*I>    PS    ACCESSIDEKTIFIER  00010900 

<FPRMAL-PARAMFTER-JUNK>    PS    FNDPF ACCESSMEADINGJ  OOOllOOO 

<ACCESS-ROOY>    «l=    *BEGIN    [    <P A SF -STRUCTURE >    t)    /    PS    NOPASESTPUCTuRE  3         OOOlllOO 

t  <ENTRY-STRUCTURF>  *t  /  PS  NOFNTR  YSTRUC  TURF  3  O00H200 
<ArCESS-PROCEPURE-DFCLARATirN-l IST>#;«    #END    PSFNDOF ACCt  SSPOD Y J  000 1 I3OO 

<BASF"STRUCTl'RE>    «»*    <NP-CL  A  S*-Sl  NGLE-STRUCTURE-PFCL  ARATIPN>  00011400 

PS    STPUCTUREMHSTBFNAMEDPASEI  00011500 

<LMTRY-STf\Uf  TLRF>    »l  =    INODE    PS    NOrEPE  CL  ARAT  I  ON  00011600 

<NO-CLASS-S I NGLE-STRUCTURE-PFCL ARAT I 0N>  0001 1700 

PS    STRUCTUREMUSTPFNAMFDENTRYJ  -         00011800 
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R-EXPRF 

INTFRDE 

STRUCTU 

T> 

TTERNPF 

=  <FORM 

RMAL-PA 
s  #C 
FORMAl P 
LPARAMF 
1ST  OF 
MAS  <SE 
ATinN> 


PAPAMF 
FORMAL 
PECLAR 
AN-DEC 
G-DECL 
-DECLA 
DFCLAR 
SS-DFC 
ER-OEC 
TURL-n 
RN-PFC 
S-DECL 
OURE-P 
PECLAR 

lis  1 

ASS- IN 
ASS-HP 
ASS-ST 


TER-DFCLA 

S   J 

ATlON>  II 

LARATI0N> 

ARATIPN> 

RATION 

ATI0N> 

LARATlON> 

LARATI0N> 

FCLARATIP 

LARATI0M> 

APATIHN> 

ECLARATIO 

ATlPN>  t 

MACRO  PS 

TFGFR-PFC 

nlEAN-PE  C 

RING-PECL 


ATION>  lis  ^STRUCTURE 

<*!>  PS  ENTFRIPINOECLSTACK 
ETIDLISTCOUNTER 
J 

T>  Ms 
RATinN> 
LARATI0N>  ] 

=  <ACCESS-PRPCFPURE-HEADlNG>  ■ 
PY  <STATEMENT> 

PS  CHECKNOTFORMAL 
POPYI 

ROfEPuRE-TYPF>  <*I>  PS  CURRENTAccESSlD 
FPUREIDFNTIFIER 
ID 

PS  FNDOFPROCEPUPEHEARINGJ 
TYPE>  PS  ACCE SSPECLARATION 
TACK  1 

RATOR  COMMA  PS  ENDOFDAT ADECL AR AT  I  ON; 
CCFSSTYPEJ 
F-TYPC>  ^PROCEDURE 
FIFR 

PS  ENDOFPROCEDUpEHEADlNG  ; 

ION 

CLARATION 

CLARATION 

LARATION 

FESSION>& 

SSIOM>  ]&  t)  H 

CLARATION 

REpEcLARATlON  PS  pusmoummyid 

claration  ; 

al-param£ter-list>  <semt> 
rameter-specification>  /  <seml>  i 

aramfter   ]  ^separated  py  t>   #) 

teroeclarations  ) 

[<*!>  ps  valueipfntifiert 

mi>h  ; 

I  is 

RATION>S  SEPARATED  BY  <SEMI>  <SEMI> 
s  <INTEr,ER-OFCLARATION> 


N> 


N> 


MACRODEFINITION 

LARATIOM> 
I  ARATIPM> 
ARATTON> 


OOO! 

1900 

000] 

2000 

000] 

L2l  00 

000] 

[2200 

000] 

2300 

000] 

[2400 

000! 

12500 

000] 

12600 

000] 

2?00 

000] 

2800 

000] 

12900 

000] 

3C00 

000] 

3iod  : 

0001 

3200  j 

000] 

L3300  ' 

000! 

3400  ; 

000] 

13500  ' 

000 

13600  , 

000' 

13/00 

000' 

13600  , 

000 

13900 

000 

14000  j 

000 

141C0  ; 

000 

14200 i 

000' 

14300  ; 

000! 

14400;, 

000] 

14500 ;; 

000! 

4600  . 

000] 

14700 i 

000] 

14800  i 

000! 

14900  l 

000] 

15000', 

000! 

15100; 

000] 

15200;; 

000] 

15300^ 

000] 

15400; 

000! 

15500  ; 

000! 

5600  j 

000! 

5700, 

000! 

15800, 

000! 

5900  j 

000! 

16000  ! 

000' 

16100 

0001 

16200, 

000' 

16  300 

000] 

6400 

000! 

16500! 

000! 

[6600; 

000] 

16700 

000] 

16800 

000! 

6900 

000] 

7000 

000] 

7100 

000] 

7200, 

000] 

7300 

000] 

7400 

000] 

7500 

000] 

7600 

000] 

7700 

000] 

7600^ 

000] 

7900! 
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/   <no-class-pattern-decl  ARATIOn> 
/  <no-class-structurf-ofclaratlon> 
/  <prc!cedure-0eclarati0n>   ]   t 

<FlLE-OtCLApATlDN>    Its    #FILE    PS    F I LFDFClAR AT  I  ON 

LIST    ClFC<*I>    PS    ENTFRIDINDECLSTACK    ]    SFPARATCIR    t> 
P'S    ENOOFDATADFCLARATIDN    S 

CQPEN-LAPEL>    Its    <*I>    PS    OPFNl ABEL    #1     I 

<CLCSE-L ABEL  >    tt  =    #«    <*!>    PS    CLOSFLABFL    i 

<structurf-assign^fnt>    11  =    <STRUCTURE-VARIABLF>   <ARROw> 

<structure-exprfs?ipn>  ps  checkthatstructuresarfthfsame 
ps  cddestructupestopf; 
cpolnteh-id>  mr  <m>  pt  te5tpointer  ps  mustpeunsubscripted 

pt  testpoh'tfr  <supscrlpt>  ps  checksubscriptmtch  ) 
<*i>  pt  testimtegfr  ps  must/neunsubscri  pted 
pt  testikteger  <supscrlpt>  ps  chfcksubscr i ptmatch  j 
<*i>  pt  testpoolfan  ps  mustf-eunsubscripted 
pt  tlstrool'eam  <surscript>  ps  chfc  ksubscr i ptm  atch  j 
<*i>  pt  tfststring  ps  mustbfunsupscr i pted 


ciNTEGEh' 


/    <*I> 

ID>     »»s 
/    <*I> 

tbOOLEAN-lD>    tl  = 
/    <*I> 

cSTRlKG" I D>    II 


/  <*I>  PT  TESTSTRINr,  <SLjPSCRIPT>  PS  CHFCKSUBSCR  I PTM  ATCH  J 

<STRUCTURE-ID>  Hs  <*I>  PT  TESTSTRUCTURE   PS  MUSTPEUNSUBSCRI PTED 

/  <*I>  PT  TESTSTRUCTURE  <SUPSCRIPT>  PS  CHECKSUPSCRI PTMATCH 

CPATTERN-IU>  Its  <*l>  PT  TESTPATTpRN   pS  MUSTPEUNSUBSCRIPTED 

/  <*I>  PT  TESTPATTFPN  <SUBSCRlPT>  PS  CHFCKSUBSCR I PTMATCH  J 

<EVEK<T-ID>  }l=  <*I>  PT  TESTEVFNT   PS  MUSTPEUNSUBSCRIPTED 

/  <*I>  PT  TESTEVENT  <SUPSCRTPT>  PS  checksubscrtptmatch  ; 
ID>  11=  <*I>  PT  TESTPPOCFSS   PS  MUSTPEUNSUBSCRIPTED 
/  <*I>  PT  TESTPROCESS  <SUPSCRlPT>  PS  CHECKSUBSCRIPTM ATCH  f 
:,=  <*I>  PT  TESTCpDF   PS  MUSTBFUNSUPSCR JPTEO 
/  <*I>  PT  TESTCODE  <SURSCPIPT>  PS  CHECKSUBSCR I PTMATCH  J 
lj=  <*I>  PT  TFSTFILE   PS  MUSTBFUNSUPSCR iPTEn 
/  <*I>  PT  TESTFILF   <SUPSCRlPT>  PS  CHECKSUBsCR iPTMATCH  j 

CSTRUCTURE-FIPST"PART>  t:=  LIST  [  <STRtlCTURE»I  D> 

PS  SETCURRFNTSTRUCTUREPTR  1    SEPARATOR  #.  i 


CPROCESS" 
<CODE-ID> 
<FILE-ID> 


cpOiNTeH-NAmF>    »t=    t<STRUCTl)RF-F  TRST-PARTX.  U    <PPINTER-TD> 
cpATTERN-NAMF>    fl=    C  <STRUCTllRF-El  PST-PART>#  ,  ]  R    <PATTERN-ID> 
UNTEGEh-NAME>    H=    I  <STRUC  TUrF-F  I  RST-P  ART>*  .  3*    <INTEGER-IP> 
cbOOLEAN-NAME>    {1=    f  <STRUCTllRE-F  I  RST-P  ART>* .  ]  R    <RPOLF  AN-  T  P> 
:rROcESS-NAmE>    H5    t  <STPUCT  URF-F  J  RST"PART>#  .  ]  R    <*ppocess-id>    P 
:STRING"NAME>    tt=    [ <ST RUCTUPE-F I RST-P ART>*  .  3 R    <STPlNG-ID>    PS 
tCOOE-NAHE>     U=    [<STRUCTURE-FlRST-PART>#.)&    <CODF"lD>    PS    RESE 
CFlLE-NAMt>     Its    [<STRUCTURE-FTRST-PART>#.]R    <FlLF-lD>    PS    RESE 
'SUBSCRlPT>     11=    #C    PS    STARTSUPSCRIPT    L I  ST [ < I NTEGFp-EXPRE SS I PN 

PS    INCRSUBCCRIPT    ]    SEPARATpR    **    #3    t 
:P0INTEH-SPECIFIFR>    ::  =    <POl  NTER-fv  AME>    #. 

/    <P0INTER-SPECIFIEP>    <POI NTER-NAME>    f .    J 
:EVEnT-VARI  ABLE>    M=    <EVFNT-IP>    i 
'ACCESS-Il»    :i=    <*I>    VT    IPlSACCESS    J 


S  RfSpTS 
S  RESFTS 
S  RESETS 
S  RESETS 
S  RESETS 
RFSETSPT 

tspt; 

TSPT; 
> 


tlNTF.GFh-F  UNCI  ION> 
:PATTERN-KUNCTIpN> 
5PniNTER-F UnCT JpN> 
cSTRING  -FUNCTI0N> 
JBPOLEAN-F  UKTTION> 
cSTRiiCTURf -FUNCTlON>  : 
^STRuCTURE-FXPRFSSION> 

/ 

/ 


<FUNCTIPN>  PT  FUNCTIDNISINTEGER  ; 
<FUNCTTPM>  PT  FUNCT I OM SP ATTERN  J 
<FUNCTIPN>  PT  FUNCTIOMISPOINTER  t 
<FUNCTIPN>  PT  FUNCTIPMISSTRING  ; 
<FUNCTIPN>  PT  FUNrTIONlSBPPLEAN  \ 
X-  <FUNCTIPN>  PT  FMNCTIPNISSTRUCTUPF 
::=  <STRUCTIIRE-VARIABLF> 

<STRUCTURE-FUNCTIPN> 

#IF  <B00LEAN-EXPRESSIDN> 


i  t  = 

t  :  = 

I  Is 

:  j  = 

:  :  = 


*THFN  <STRUCTURE-FXPPESS 
#ELSE  <STRUCTURE-FXPPESS 
PS  CHFCKTHATSTRUCTURFSAR 
PS  MOVEOSLPSFMFIELDFROMl 

#CASF  <INTEGER-FXPRESSIPN>  #PF 

<STRUCTIIRE-FXPRFSSI0N-LIST>  «FSAC 


IPN> 
IPN> 

ETHESAME 
T06 


00016000 
000J6100 
00016200 
00016300 
000i8<i00 
OOO165OO 
00016600 
00016700 
00016600 
0001B900 
00019000 
00019100 
00019200 
00019300 
OOO194OO 
00019500 
00019600 
00019700 
00019600 
00019900 
J  00020000 
00020100 
00020200 
00020300 
00020^00 
00020500 
00020600 
00020700 
00020600 
00020900 
00021000 
00021100 
00021200 
PT;00021300 
PT;000?HOO 
PT;00021t)00 
PT;00021600 

PTJ00021700 

;  0002I600 

00021900 

00022000 

00022100 

00022200 

00022300 
00022400 

00022500 
00022600 
00022700 
00022600 
00022900 
00023000 
00023100 
00023200 
00023300 
OO0234P0 
00023500 
00023600 
*FI00023700 
00023600 
00023900 
0002^1000 


17k 


STFv'UCTURF-FV 

/    < 

p 

3EFAULT-DEFJ 
[  # 
/  * 
/  f 
/  t 
/    t 

>TRlNG-CODr> 

»ROcE"DURt-ST 

/    < 

UN'CTI0N>     :J 

p 

/    < 

< 

ICIUAL-PARAM 
PS 

ACTUAL-PARA" 
t 


C 

/  P 

r 

/  p 
r 

/  p 
[ 


p 

/  < 

[ 


c 

s 

AC 
P 

r 


M(U'FOSL 
FSSION- 
PUCTURF 
CHECKTH 
TlON>  : 
TFGER  * 
TCGER  * 
TFGER  # 
PING  j»( 
PING  #= 
j-  *RCL 
F  M  F  M  T  > 
nCEDURE 
<PROCED 
CHFCKTH 
DCEDURE 
TUAL-PA 

fp-list 

pOFACTU 

FR-FIRS 

T  CHECK 
<PROCE 
/  #*& 

T  CHECK 
<ACCES 
/  t*l 

T  CHECK 
<INTFG 
/  «*K 

T  CHECK 
<ROOLE 
/  #** 

T  CHECK 
<STRIN 
/  #*& 

T  CHECK 
<POINT 
/  #*& 

T  CHECK 
<PATTE 
/  #*& 

T  CHECK 
<STRUC 
/  #*& 

T  CHECK 
<FVFNT 
/  #*g 

7  CHECK 
<FILF- 
/  #*R 

T  CHFCK 
<PROCE 
/  #*g 

T  CHFCK 
<CODE- 
/  #*& 

GFTNFXT 

TUAL-PA 

T  CHFCK 
<PROCL" 
/  )f*& 


2S 

LI 

-F 
AT 
:  = 
( 

( 
< 
< 
/ 

I  t 
-  7 

UP 

AT 

-I 

RA 

> 

AL 

T- 

IF 

DU 

PS 

IE 

s- 

PS 

IE 
FP 

PS 
IF 
AM 
PS 
IF 
G- 
PS 
IF 
EP 
PS 
IF 
RM 
PS 
IF 
TU 
PS 
IF 
-V 
PS 
IF 
VA 
PS 
IF 
SS 
PS 
IF 

VA 
PS 
PA 
RA 
IF 

nu 

PS 


MFIELD 
T>  :  •  = 

PRFSSI 
TRl'CTU 
*DF  F  All 
INTEGE 

i'OKES/ 
INTEGE 
ENGTH> 
TR1NG- 
BCP/#E 
<PROC 

>  <ACT 
-Ip>  P 
ARpSMO 

>  PT  C 
FTFR-L 
J=  <AC 
A  R  A  M  F  T 
ART>  » 
FXTFPI 
F-ID> 
CODEPF 
FXTFPI 
D>  PS 
COPFPE 
FXTFPI 
FXPRFS 
COPFPE 
EXTFPI 
FXPRFS 
CODEPE 
EXTFPI 
XPRESS 
COPEPE 
FXTFPI 
EXFRES 
CDPFPF 
FXTFPI 
FXPRFS 
CDPFPF 
FXTFPI 
F-FXPR 
COPEPE 
FXTFPI 
RIAPI  F 
f.GPEPE 
FXTFPI 
IAPLP> 
CCIPFPE 
FXTFPI 
VApl  AP 
COPFPE 
FXTFFI 
I  A  F  L  F  > 
COPFPE 
M 

FTFR-F 
FXTFPI 
F  -  I  0  > 
COPFPF 


FROMt 
<STR 
ON-LI 
RESAR 
LT 

R-EXP 
*T>OS 
R-EXP 
#><SI 
C0PF> 
PCDIC 
EDURE 
UAL-P 
T    CHF 

TREOM 
HECKT 

IST> 

TUAL- 

ERSCA 

t  =  #( 

SAPRO 

PSCOP 

FAULT 

SACCE 

CODEA 

FAULT 

SIK'TF 

SION> 

FAULT 

SROOI 

SlON> 

FAULT 

SSTRI 

I0N> 

FAULT 

SPOIN' 

SION> 

FAULT 

SPATT 

SlON> 

FAULT 

SSTRU 

ESSIO 

FAULT 

SEVEN 

>  PS 

FAULT 

SFILF 

PS  C 
FAULT 
SPPOC 
LE>  P 
FAULT 
SCPDF 

PS  C 
FAULT 


TP4  I 

UCTURE-EXPRESSlON> 

ST>  1,    <STRUCTURE-EXPRESSlON> 

ETHESAME  j 


RFS 
3 

RFS 
ZE> 
lj 
/*A 
-ID 
ABA 
CKT 
IPE 
HAT 

; 

PAR 

n; 

PS 
CFD 
EPR 
PRO 
SS 
CCE 
ACC 
GER 

PS 
INT 
FAN 

PS 
ROO 
NG 
PS 
STP 
TFR 

PS 

pni 

ERN 
PS 
PAT 
CTU 
N> 
STR 
T 

COP 
EVE 


SION>  #) 

STON>  #)  #=[#ONES/# 
*)  I#=  <STRING-COO 


TWOS! 
E>]& 


srii7/#Asciie; 

>  PS  CHECKTHATPARMSNOTREQUlRED 

MFTER-LIST>  ) 

HATIDISTYPED 

D 

IPISTYPEO 


AMETER-FIRST-PART> 

SETUPACTUALPARAMET 
URE 

OCEDURFIPACTUALPARA 
CFPUREIOACTUALPARAM 

SSIDACTUALPARAMETER 
ESSIDACTUALPARAMETE 

rOOElMTEGFRACTUALP 

ecfractualparameter 

codepooleanactualp 
leanactualparameter 

copestringactualpar 
imgactualparameter 

rODEPOlNTFRACTUALP 
NTERACTUALPARAMETER 

CODEPATTFPNACTUALP 
TFRNACTUALPARAMETFR 
RF 

PS  CODFSTPUCTUREACT 
UCTUREACTUALPARAMET 

EFVENTACTUALPARAMET 
NTACTUALPAPAMETER  1 


#) 

ERSCAN 

METER 
ETER  3 


R  3 

ARAMETER 
1 

ARAHETER 
1 

AMETER 
1 

ARApFTER 

] 

ARAPETER 
7 

UALPARAHETER 
ER  ] 

ER 


OPEFIl  EACTUAI.PARAMETFR 

F  ILEACTUALPARAMETER    1 

ESS 

S  COPEPROCESSACTUALPAR 

PROCFSSACTUAl PARAMETER 

OPFCnPEACTUALPARAVETEP 
CPDEACTUALPARAMETFR  ] 


AMETER 
1 


IPST-PART>  tp 

SAPPPCFDUPE. 

PSfOPF PROCFPURFIPACTUALPARAMETER 

FAULTPPOCFPURF I  PACT  UAL PAR AMETER  1 


00024100 
00024200 
00024300 
00024400 
00024500 
00024c>00 
00024700 
00024600 
00024900 
00025000 
00025100 
00025200 
00025300 
00025400 
00025500 
00025600 
00025700 
00025800 
00025900 
00026000 
00026100 
00026200 
00026300 
00026400 
00026500 
00026600 
00026700 

00026fe00 

00026900  : 

00027000  ;! 

00027100 

00027200  : 

00027300  ' 

00027400  ) 

00027500  \ 

00027600 

00027700  j 

00027800 

00027900 

00026000 

00026100  j 

00026200 

00026300 

00028400 

00028500 

00026600 

00028700 

00028600 

00026900 

00029000 

00029100 

00029200 

00029300 

00029400 

00029500 

00029600 

00029700 

00029800 

00029900 

00030000 

00030100 


i  7  5 


:CPHkENT: 

:bLOcK> 


PS 

»  l  = 

=    <B 


LOKER-BI 
UPPEP-bl 
INTEGER' 


LI 
PS 
<S 

/  <D 

ound> 
ound> 

-INIT] 

I  FM 

<1 

PS  R 

;array-papt>  j 

/  <A 
iAPRAY-f  IRS7-P 
#» 
PS 
/  <A 
#  J 
PS 

FAN- INITI 
t  FM 
<R 
P?  R 
i  :=  t 
/  ** 
/  <1 


lFNGTH> 


PT  CHEC 
[  <ACCE 

PT  CHEC 

t  <INTE 

/  #*& 

PT  CHEC 
[  <BOOL 

/  #*& 
PT  CHFC 
t  <STRI 

/  #*& 
PT  CHEC 
[  <POIN 

/  #*& 
PT  CHFC 
t  <PATT 

/  **l 
PT  CHEC 
[  <STRU 

/  #*R 
PT  CHFC 
[  <EVEN 

/  #*& 
PT  CHEC 
t  <FItF 

/  #*& 
PT  CHFC 
r  <PROC 

/  #*& 
PT  CHEC 
t  <CODF 

/  #*& 
GFTNEX 

icommen 

Fc,I^>  P 
ST  t  <D 
CODEpO 
TATEMEN 
PFN-LAB 
J :=  <IN 
::=  <IN 
A I  I  7  A  T  I 

pty  /  < 

NTFGFR- 
ESFTIDL 
t=  FMPT 

RRAY-FI 

ArT>  M 

PS  COD 

ADDANO 

RRAY-FI 

PS  COD 

ADDANO 

A|  I7ATI 

PTY  /  < 

ODLFAN- 

ESFTIDL 

jr*  ]& 

<  I  N  T  F  G 

NTEGER- 


KIFNE 

SS-ID 

PS  C 

KIFME 
GER-F 

PS  C 
KIFNF 
EAN-F 

PS  C 
KTFKiF 
NG-EX 

PS  C 
KIFNF 
TEP-F 

PS  C 
KIFNE 
ERN-F 

PS  C 
KIFNF 
CTURF 

PS  C 
KIFMF 
T-VAR 

PS  C 
KIFNF 
-VARI 

PS  C 
KIFNF 
ESS-V 

PS  C 
KIFNF 
-VAPI 

PS  C 
TPARM 
T  PS 
S  COD 
ECLAP 
STDEC 
7-LIS 
EL>  < 
TFGFR 
TFGEP 
ON>  J 
ARROW 
FXPRF 
ISTCO 
Y 

RST-P 
=  *\ 
EPFGI 
THFPS 
RST-P 
EPFGI 
THFRS 
UN>  » 
ARROW 
ExPWE 

I  s  t  r  o 

PS  SE 
ER-FV 
EXPKF 


XTFPI 

>  PS 
ODFDE 
XTFPI 
XPRFS 
ODEDE 
XTFPI 
XPRFS 
ODEDF 
XTFPI 
PRFSS 
ODFDF 
XTFPI 
XPRFS 
ODEDE 
XTFPI 
XPRFS 
ODFDF 
XTFPI 
-FXPR 
ODEDF 
XTFPI 
I  ABIE 
ODEDE 
XTFPI 
APLF> 
ODEDE 
XTFPI 
APIAB 
ODEDE 
XTFPI 
APLF> 
ODEDF 

t 
SKIPT 
EPRFD 
ATIDN 
LARAT 
T>  <E 
Bl  OCK 
-FXPR 
-FXPR 
:=  <I 

>  PS 
SSIDN 
UNTFP 

ART> 
PS  CO 
NliPPF 
UPSCR 
AFT> 
NUPPE 
UPSCP 
«  =  <I 

>  PS 
SSITN 
U  N  T  F  R 
TDFFA 
PPFSS 
SSI™ 


SACCFSS 

CODEACCE 

FAULTACC 

SINTFGFR 

SIDN>  »S 

FAULTINT 

SPDOl FAN 

SIDN>  PS 

FAOl.TBOO 

SSTRING 

ION>  PS 

FAULTSTR 

SPOINTFR 

SION>  PS 

FAULTPOI 

SPATTERN 

SION>  PS 

FAULTPAT 

SSTRllCTU 

ESSION> 

FAULTSTR 

SEVFNT 

>  PS  COD 

FAULTEVE 

SFILF 

PS  CODE 
FAtlLTFR 
SPROCFSS 
LF>  PS  C 
FAULTPRO 
SCDDF 

PS  CODE 
FAl.LTCOO 


SSIOACTUAL 
ESSIDACTUA 

CODEINTEG 
EGERACTUAL 

CODEPDOLF 
LFANACTUAL 

CODESTPING 
INGACTUALP 

CODEPOINT 
NTERACTUAL 

COOEPATTF 
TFRNACTUAL 
RF 

PS  CODFSTR 
UCTU'REACTU 

EFVENTACTU 
NTACTUALPA 

FU.FACTUAL 
EACTUALPAR 

ODEPROCESS 
CFSSACTUAL 

CDDEACTUAl. 
EACTUALPAR 


HRDUG 
FCl  AR 

>  FOl. 
IONBI 
ND>  P 

>  <CI. 
FSSIO 
FSSIO 
D-PAR 
COTEP 

>  PS 

; 


HSEMIC 

ATIONB 

LOWED 

OCKHFA 

S  CODF 

OSE-LA 

N>  PS 

N>  PS 

T>  <AP 

EGININ 

CODEFN 


OLON  ; 

LOCKHFA 

RY  A  -/<S 

D  PS  FM 

RLOCKEN 

REL>  } 

CODFLOW 

CODFUPP 

RAY-PAR 

TEGFRIN 

DINTEGE 


#]  PS  FNTFRNUMPERO 

DFPFGIMLOWERBOUND 

RBOUND  <UPPER-POUN 

IPT 

t>     PS  CODFPEGINLOW 

PPDUND  <UPPER-P0UM 

IPT  » 

D-PART>  <APRAY-PAP 

COFFPEGINPOOLEANIM 

>  PS  CODEFNOBODLEA 
J 

ULTSTRINGLFNGTH 
I0N>  PS  SFTVARIARI 

>  PS  SFTFTXFDSTRIN 


parameter 
lparametfr  ] 

fractual parameter 
parametfr  ] 

anactualparaneter 
paramftfp  ] 

actualparameter 
aramfter  1 

fractual.parameter 
parametfr  1 

pnactualparameter 

parameter  1 

uctureactual parameter 
alparamfter  i 

alparamfter 

RAMETER  1 

PARAMETER 
AMETFR  I 

ACTUALPARAMETER 
PARAMFTFP  ) 

PARAMETFR 
AMETEP  1  I 


D 
FMI>  ] 

dofdfcltst 

d  ps  endofblock 

frbound; 
frbound; 

T> 

ITIALIZATInK 

RINITIALIZATION    ] 


FSUPSCRTPTS    i 

<LOWFP-ROUND> 
D> 

FRBOUND    <LOtNER-BOUND> 
D> 

T> 

ITIAl IZATION 
NINITIALIZATION  ] 


FSTRINGLFNGTH 
GLENGTH  J 


00030200 
00030300 
00030400 
00030500 
00030600 
00030700 
00030800 
OOO3O9OO 
00031000 
00031100 
00031200 
00031300 
0003M00 
00031500 
00031600 
00031700 
00031600 
00031900 
00032000 
00032100 
00032200 
00032300 
00032400 
00032500 
00032600 
00032700 
00032600 
00032900 
00033000 
00033100 
00033200 
00033300 
00033400 
00033500 
00033600 
00033700 
00033800 
00033900 
00034000 
00034100 
0Q034?00 
0003«300 
00034400 
00034500 
00034600 
00034700 
00034600 
00034V00 
00035000 
00035100 
00035200 
00035300 
00035400 
00035500 
00035600 
00035700 
00035800 
00035900 
00036000 
00036100 
00036200 
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; 


<SlZF>  »»  =  <TNTFGFP-EXPRFSSJON>  PS  SETSTPINGSI ZE  J 
*cTRTNfi-SPECH !CATlnN>  it=  <ID-PAPT> 

/  f(  ?S  CODFPFGINSTRINGLENGTH  <LENGTH> 
f  $,    PS  cnDEBFGIMSTPIK'GSlZF  <SI7E> 

/  PS  SETOEFAUITSTRINGSI2F  1  #)  3  <ARRAY-PART> 
<STRlKG-lNlT!ALlZATir.N>  H«  <STR I NG-SPEC T F I C AT  I PN> 
<STRI        <ARP0W>  PS  CflPEpEGJNSTRINGI'NITIALIZATlON 

<STRlNG-EXPRESSIOM>  PS  CUPEENDSTRI NGlNlTl AL 17 ATION  U 
Ps  RFsETIDI  ISTCOUNTFR  *  A  .„.„„ 

<pnU.TEP-INITlAlIZATlON>  M*  <ID-PART>  <ARRAY-PART> 
<P0INTER  "IJJ^     ^  rnDEpEriINPOlNTERlNlTlAtI7ATlON 

<P0IMTER-EXPRESSIPN>  PS  CODEF.KDPniNTERlNlTl  All  ZATION  ]& 
<N0.CLASs4^rfFrsTcUPA^>P,J:=  *PPOCfSS  PS  PRPCFSSOECl ARAT TON 

^rPARATPR  t>    PS  ENOPFDATADECLARATION  i  ■ 

<STRUCTURE-p"?J  »»«   <  «  S?ANSUPSTRUCTuRE  PS  COPEBEGlNSTRUCTUREDFCL 

<STRUCTURt  I-  Hi>  on>  stpARATCR  <REMI> 

",  Is  CnDEENDSTRUCTUPEDECL  PS  FNOOFSTRPCTURFDECLArAT I  ON  i 


<EVEKT-AClIPfv-DFCLARATiriM>  :l  =  *ON  <EVFNT 
PS  CODEPEGINEVENTACTIOMDECL  #00 
PS  CODEFNDFVEMTACTirNDFCL  \ 

<PATTERN-INITIALIZATIDN>  M=  <ID"PAPT> 


VAR]ABLF> 
<STATFMFNT> 


<APPAY-PAPT> 


r  <ARROW>  PS  CODEPEGIKPATTERNINITIALIZATIO.N 
[  <PA??ERN-LyPRESSinN>  PS  CPDEFNDP  ATTERN  I  N.I  T 


IAUZATION    ]& 


R  \ 


PS  RESFTIDLISTCOUNTFR  ; 
<ACCFSS-PART>  *»  =  <io-part> 

[   ps  makesurenoparamftersarfrEmhred        DjDiurtrDpiT.T> 

/  PS  SETUPAfCFSSPAPAMFTERSCAN  <ACTUAL"PARAMFTFR-Ll ST> 
ac  ENOOFACCFSSPARAMFTFRSCAN  3  <ARRAY-PAPT> 
PS  CODEACCESSPECLARATIOK  PS  RESFTIDLISTCOUNTFR 

<procedure-declaRation>  m=  <procfdurf-hfading> 

P  °CE     i  Ps  COOFPEGINPROCEPUPFPOPY  <STATEMFNT> 

PS  CODEENDPROCEDUPEBODY  PS  CHECKNOTFOpMAl. 
/  *rnpkiAL  PS  ChFCKFORMAl  ALLOWED 

/  J  FORWARD  PS  CHECKFORWAPOOK  3  PS  ENt>PFPROCFDUREBODY  J 
-STATEMENT  M=  #IF  <B00LF AN-F XPRFSSI 0N> 
PS  rODEpPANCHPASTTHENIFFALSE  #THFN 
<STATEMFNT-LIST>    PS  CODFENPF ALSFBRANCHP ASTTHEN 
<FLSE  PS  CODEPRANCHPASTFLSF  <STATEMENT-l.IST> 
Be  CODLFNDPPAKCHPASTEl SF  3*  *FI 

<CPNDITH'NAL-STATEMFNT>  <CLOSE-LARFL> 
<INTEGFR-FXPRFSSION> 

#WAI  .  :  '      >-'-, 
PS 
i ist  r  <S1 ATFMENT> 

tE|DEFASLT<PSMCpnFCASFSTATEMFNTDEFAUlT  <STATFMEmT> 

»s  codelnocasfstatementrefault 

/  PS  CODENPCASFSTATFPENTDFFAULT] 
IESAC  PS  CPPEFNPOFCASE  t  kDCt  <     i 

/  <OPFN"LAHH>  <CASF-STATFMFNT>  <CLPSE-l  ABEL>  > 

<lTERATlVE'S;rHTtFENpS  CPDEBEG^WHILFSTATF.ENT  <BnrLt JJ-EjPJESS!ON> 

*D0  PS  COUFPRANCHPASTSTATFMFNTIFFALSF  <STATEMFNT> 


CONDITIONAL' 


t 
/  <CiPFN-LAt'EL> 
<CASE-STATE^M>  »«  =  #CASE ^ AStwAlTSTATEM^T  <EVENT-LIST>  #) 
CPDEENPHFCASFWAIT  3  #0F  PS  CPDFC A SEHP A NCH 
PS  CPDFCASESTATEMFNTENTPY  3 


; 


00036300 
00036400 
00036500 
00036600  i 
00036700  i 
00036b00 
00036900 
00037000  J 
00037100 
OO037?O0 
00037300 
00037400 
00037500 
-00037600 
0003/700 
00037800 
00037900 
00036000 
0003M00  I 
00036200 
00036300 
00038400 ! 
00036500 ; 
000386001 
00036700., 
00036800; 
00038900' 
00039000 
00039100 
00039200, 
00039300^ 
00039400 
00039500; 
00039600 
00039700 
00039800 
00039900 
00040000 
00040100 
00040200 
00040300 
00040400 
00040500 
00040600 
000/(0700 
00040600 
00040900 
00041000 
00041100 
00041?00 
00041300 
00041400 
00041500 
00041600 
00041700 
00041600 
00041900 
00042000 
00042100 
00042200 
0004P30C 
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<INTEGF  R-FPR-LIST> 
<B001EAN-VARIABLF> 

<  B  0  0 1 fan-for-list> 

<STRING-VAPIAPLF>  PS 

<SlRIf>G-FOR-LUT> 

<POINTFR-VARI ARl F> 

<POIMFR-FnR-LIST> 

<PATTF.PN-VARIAPLF> 

<PATTEPN*FOR-LIST> 


PS  CnDFFOFVARIABLF  <ARROW> 

CODEFORVARlABl E  <ARROW> 

PS  CODEFOPVARIAPLE  <ARPOW> 

PS  CODEFOPVARIAPLE  <ARROW> 
] 


I N  T  E 

FOR- 


FOR- 


bOOL 

IpOlN 

PA7T 

STRI 

SCA 


GER-FO 

EXFRES 

/ 

LI5T-E 
/ 
I 


EAK-FO 

S 
TER-FO 

S 
ERK-FO 

S 
NG-FOR 

S 
PE-STA 

/ 


fPn  PS  CODFFNPFpRLIST  <STATE^ENT>  PS  CODFPRANCHRACKFoR 
*FOp  <SI(-iPLF-IMEGEP-EXPRFSSTON>  »TIMFS  #00 
PS  CODEFORCOUNUR  <STATFMFNT>  PS  CODFPRANCHPACKFORTlMES 
<OPFN-LABEL>  <  I  TEP AT  I  VE-STATFMENT>  <Cl OSE-L APFL>  ; 

P"LIsT>  l)=  I  1ST  <FOP-l IST-FITMENT>  SEPARATOR  **    t 

SlON'>  »:=  <IN'TFGFR-FXPFESSION> 
?VALUF  #(  PS  CUDFPFGTKVALUE  <I  NTFGER-FXPRFSSTPN> 
PS  CODEENOVALMF  #5  I 

l.EKEMT>  its  <FnR-FXPPFSSION>  PS  COpEST  h  GLEFORASS  I  GNMENT 
<FOp-FXPRESSinN>  PS  CPPF  I  N'  I  T  I  Al_Fnp  ASS  I  GNMFNT 
fTO  PS  CODEPFGIMFPRLIMIT  <FOR-EXPRESS I ON> 
PS  CODEENDFOPL  U'lT  I    PS  CODtOFFAULTFnplNCPFMFfvf 
/  *PY  PS  CfinrPEGlNFORPY  <FOR-FXPRESSinN> 

PS  CODEENDFORPY  3 
[  PS  CODENOSTEPFOPCONDlTlnNAL 
)»STEP  PS  CnPFPEGIMFOPSTFP  <FOR-EXPRESS  I  ON> 
PS  cODEEMOFORSTEPlt  #UNTII  PS  CODE BFGT NFORUNT I L 
<BOOl EAN-EXPPFSSinN>  PS  CPOEFNDFOPUNT I L 
/  <WHILE  PS  CODFBFGIMFOPWHILF  <BOOLF AK-EXPRESS I0^> 
PS  CODEENPFORWHILE  ]  3  \ 

P-LIST>  tl=  I.  yST  [  <BPOLFAM-EXPRESSlOM>  PS 

fparator  t ,    f 

t  <POINTER-EXPRESSIOM> 


PS 


t  <PATTFRN-EXPRESSlON>  PS 


COPFFOPLlSTEXP  3 
CODFFORLlSTFXP  3 
COpFFORl ISTEXP  3 


'ROC 


FSS-ST 
/ 
/ 
/ 


R-LIST>  i:=  LIST 

FPARATOR  t>     \ 

R-LIST>  I »  =  LIST 

FPARATOR  #,  ) 

-UST>  :s=  LIST  T  <STR1NG-FXPRFSSI0N>  PS  CPDEFPRL I STExP  1 

FPARATOR  t,     ; 

TFfFNT>  ::=  #LEAVE  <*I>  PS  LEAVELAP6L 

J»RFTl'RN 

t  PS  CHECKTHATPporFPl'REISNOTTYPED 

/  PT  INTEGERPROCEPURF  #(  <I NTFGER-EXPRESS I ON> 
PS  CODFRFTliRNlNTEGEP  #) 

/  PT  BOOLEAMPPPCEPORE  t (  <ROOLEAN-EXPPESSION> 
PS  CODERETllRNpOPLFA^  * ) 

/  PT  STRUr.PRPCEDURE  t(     <  STR  I  NG-FX  PRFSS  I  OK>> 
PS  CODFRETURNSTPING  #  ) 

/  PT  PATTERMPPOCEPURE  *(     <PATTERN-EXPPESS I ON> 
PS  CODERFTURNPATTFR^  *) 

/  PT  POIMFPPROCEPURF  t  (     <POI  KTER-EXPF'ESS  I  PN> 
PS  CODERETURNPOINTER  # ) 

/  PT  STRIJCTIIREPPOCEPUPF  *(  <STRUC  TURF-EXPPESS I  ON>  *> 

PS  CHECKTHATRFTl'RNSTRUCTURFMATCFESPPOCEDUPFSTRUCTUR  3  ) 
ATFMFNT>  l'.=    *SPAl^'  *(  PS  CODFBEG  R'SPAWN 

<PPPCFDURE-STATEMFNT>  PS  roPEENDSF'AwN  * ) 

^APPEND  #(  P<;  CpDFBFGINAPPENP  <PRnCEPl'RE"STATFMENT> 

PS  COPEFNDAPPFNP  *) 

# INITIATE  *(  PS  CODFPFOININITIATE  <PROCEDURE-ST ATE MENT>  t* 

<PRpCESS-VARIABLE>  PS  CPDFENP I NI T I ATF  #) 

^TERMINATE 

r  PS  COOELOf-ETEFMTNATF 

/  #(  E  #*&  t,    PS  CODFPFFAULTTERMINATF   PS  COPFCALSFTERMlNAT 


00042400 
00042500 
00042600 
00042700 
00042600 
00042900 
00043000 
00043JOO 
00043200 
00043300 
00043400 
00043500 
00043600 

.00043700 
00043600 
00043900 
00044000 
OO04M00 
00044200 
00044300 
00044400 
00044500 
00044600 
00044700 
00044600 
00044900 
00045000 
00045100 
00045200 
00045300 
00045400 
00045500 
00045600 
00045700 
00045600 
00045900 
00046000 
00046100 
00046200 
00046300 
00046400 
00046500 
00046600 
00046700 
00046600 
00046900 
00047000 
00047100 
00047200 
00047300 
00047400 
00047500 
00047600 
00047700 
00047600 
00047900 
00046000 
00046100 
00048200 
00048300 

E00046400 
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<EVEMT-I.IST>  PS  COPEENDCAUSETFRMINATE  00048500 

/  PS  COPFFFGINPRDCESSTEFMINATE  <PROCESS-VARl ABLE>  000*6600 

PS  CPPFErDPROCESSTFRMTNATE  00046700 

[  t>    CODFCAUSETEPMINATE  <EVENT-LIST>  00046600 

PS  CPDFFKDCAUSFTFRMIKATE  3  U*)  3  000*6900 

/  /SUSPEND  *C  PS  fOPEREGlNSUSPFND  <PRCCESS-VARI ABlE>  000*9000 

PS  cnDEENOSUSPEND  / >  00049100 

/  /RESTART  #(  PS  CODEPEGlNRESTART  <PROCESS*VARl ABLE>  00049200 

PS  CC1DEENDRFSTART  #>  i                                                                            ,  00049300 

<EVEKT-LIST>  »»=  LIST  t  <EVFNT-VARI ABLE>  PS  CPDEFVENU  1ST  3  00049400 

SFPARATOR  t,     \  00049500 

<EVEM-STATFMENT>  »»=  ICAUSF  # (  PS  CODEBfgINCAUSF  <EVENT-l lST>  00049600 

PS  CDDEENDCAUSE  / )  00049700 

/  /WAIT  /(  PS  CODFRFGIN^AIT  <EvENT"UST>  PS  CODEENDKAlT  #)  J   00049800 

<PATTFRN-K*ATChING-STATFM|f  Ki  T  >  »:«  <STR  JNG-V  AR  I  ABL  F>  .  00049900 

[  PS  CODEFLOATINGMATCH  /  PS  COPEFlXEDMATCH  /FIXED  3  00050000 

<PATTFRN"EXPRESSlCiN>  PS  CODEP ATTERNM ATCH  00050100 

[  PS  codenomatchasstgnment  00050200 

/  <ARR0W>  PS  COPF^ATCHASSIGN'MENT  <STRlNG-EXPRESSlON>  00050300 

PS  CODEENDMATrHASSIGNMEN'T  1  i  00050400 

<integer-asslgnmfnt>  »l  =  <  1  mf  ger-va  r  i  ab|.  e  >  ps  sftstapok  <arrow>  00050500 

<integer-exprfssi0n>  ps  in'tfgerstore  00050600 

/  <integer-functipn-id>  <arrow>  00050700 

<INTEGER-EXPRESSIPN>  PS  INTEpERFUNCTIPNSTOPE J  00050800 

<INTEGFK-FU|vCTIriK-ID>  lis  <*I>  PT  TF  ST  I NTE  GERF  UNCT  I  ON  IDJ  00050900 

<BnOLEAN-ASSlGNMFNT>  t:r  <F3P0l E AN-VAR I ABLE>  PS  SFTSTAPOK  <ARPOW>  00051000 

<PPOLEAN-EXPpESSlPN>  PS  BPOl  EAmSTORE  0005H00 

/  <BnpLEAN-FUNCTlPN-lD>  <ARPOW>  00051200 

<B0PLEAN-EXPRESSIPN>  PS  RPPLFANFUNCTTPNSTORE)  00051300 

<bODLEAK-FUKCTIpN-lD>  ::=  <*I>  PT  TFSTROPLEANFUNCTlONID I  OOO5I4OO 

<STRIMG"ASSIGNMFNT>  t:=  <STp  I NG"  VART  ARt_E>  PS  SETSTArOk  <APRPW>  00051500 

<STRlNG-EXPRESSlOh>  PS  STPINGSTORE  00051600 

/  <STRING-VARIABLF>  #t  *[  < INTFGER-FXPPFSS ION>  00051700 

PS  CPDEFIELDSTAPTRYKAKE  /t  <TNTEGER-FXPRESSI0N>   t  00051800 

PS  COnEFIELPLFNGTHRYNAMF  t)    PS  SETSTAPOK  <ARROW>  00051900 

<STplMG-ExPPFSSIO^>  PS  PART  I  ALSTR I NGSTORE  00052000 

/  <STPlNG-FUNCTIPh-ID>  <ARRPW>      y  .00052100 

<STRn'G-EXPPFSSION>  PS  ST  P I  NGFUNCT I  DNSTORF  ;  00052200 

<STRIhG-FUNcTION'-TD>  11=  <*I>  PT  TE  ST  STP I  NGFUNCT  I  PNI 0;  00052300 

<F0INTER-ASSIGNHENT>  11=  <Pri K TER-VARI ABl E>  <ARRPW>  00052400 

<PPINTFR-EXPRFSSIPN>  PS  PPINTERSTORE  00052500 

/  <PPINTER-FUNCTIPM-ID>  <ARROfc>  000^2600 

<PPIMTER-EXPRESSIPN>  PS  POINTERFUNCTIPNSTOREl  00052700 

<PPHTFK-FUhrTInK-IP>  l»  =  <*I>  PT  TFSTPPTNTERF UNPT IONIDJ  00052800 

<PATTERK-ASSIGNMENT>  Mr  <PATTERN-VARTABLE>  <ARPPW>  00052900 

<pATTFRN-EXppEsSlPN>  PS  PA TTFRK'STORE  00053000 

/  <PATTFPN-FUNCTIPN-ID>  <ARRO^>  00053100 

<PATTFRN-ExPRESSIPN>  PS  P ATTFPNFUNCT I PNSTPRE I  00053200 

<pATTFRN-FUrrTTPK'-lD>  11=  <*T>  PT  TFSTPATTFRNF UNCT ION  ID J  00053300 

<INTLGEK-EXF'RESSIPN>  «»=  <ST  MPL.E-  INTEnER-EXPPF  SSI  PN>  00053400 

/  <INTFGER-ASSIGN*-EM>  PS  CPDENONDEsTpUCTlNTEGEPSTppE  J  00053500 

<SIMFLE-lNTE0tP-FXPRESSION>  lis  <TFRM>  00053600 

/  <SU'PLE-lNTFGFR-EVpPFSSU)N>  *♦  <TFRK<>  PS  CPDE I  NTEgFRADD  00053700 

/  <SH'PLE-lNTFGER-FXPPESSION>#-  <TERM>  PS  CODE  I NTEGERSUBTRACT ;  00053g00 

<  T  F  R  r  >  lis  <FACT()R>  00053900 

/  <TFR^>  f*  <FACTpR>  PS  CPPF I NTEGEPPULT IPL Y  0005*000 

/  <TFPM>  //  <FACTPR>  PS  CPDFDIVIDE  0005*100 

/  <IERM>  /RDIV  <FACTPP>  PS  CODFPDIV  00054200 

/  <IFRM>  ICDIV  <FACTDR>  PS  CPDFCDIV  0005*300 

/  <TFPP>  /MOP  <FACTPR>  PS  CPPEMPD  I  0005**00 

<FACTOR>  U=  /+  <PRIMaPY>  /  <PRIMaRY>  /  #•  <PRIMaPY>  PS  CPDFNEGATIVE     0005*500 
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/  <FACTPR>  *PPWFR   t#4]g  <PRIMARY>  PS  CPDEPPWEP  0005<»6P0 

/  <FACTPR>  #PPWER  #-  <PRIMARY>  PS  CpDENFGATIVE  Ps  CpDEPOWFR  I    00054700 

<FRH'ARY>  Ij=  t   <*N>  PS  COPEINTEGERCPNSTANT  00054fc00 

/  t*    PT  TFSIINTFGFRSTARALIOWED  00054y00 

/  <INTF.GER-VARIABLE>   PS  COOElNTEGFPVALUECAl  L  00055000 

/  <INTFGER-RiNCTlPN>  PS  CPDF INTFGERF UNfT I  ON  00055100 

/  MF  <BOOLEAN-FXPRFSSlON>  PS  CODFEXPsKlPTHFNONFAl  SE  00055200 

fTHFN  <INTEPER-FXPRESSIPN>  PS  CODFEXPSKI PFLSF  00055300 

PS  CODEEXPSKIPTPEI  SFFOUND  00055<|00 

JELSF  <INTFGFR-fXPPFSSlPN>  PS  CODFExPSK IPPASTFLSEFOUND  #Fl   0005^500 

/  ifCAsF  <IMFGFR-FXFRESSIPN>  *0F  PS  CPPFEXPC  ASFRR  AKjCH  0005^600 

LIST  T  <IMFGFR-EXPRFSSI0N>  PS  CODEFXPC ASFENTPY  3  OOO557PO 

SEPARATOR  «»  0005b600 

t*DEFAULT  PS  COPEFXPC A SFDFFAuLT  <I NTEGER-FXpRFSsIpN>  0005^900 

PS  CODFENDEXPCASEPEFAULT  /  PS  CDDF  NOEXPC  ASFDFFAllLT  ]  OOO560OO 

*ESAC  PS  CPDEFNDOFFXPCASE  00056100 

/  #ABS  *<■    <INTFGEP-FXPPFSSIPN>  #)  PS  CPDEABS  00056?00 

/  tfSlGN  #C  <INTFGFR-EXPRESSTON>  *)  PS  CPDESIGN  00056300 

/  ^BINARY  *L     <STRING-EXPRFSSI0N>  #}  PS  CODE  I NTGRFROVSTR ING     00056400 

/  *IENGTH  *(  <STRING-FXPRFSSION>  #)  PS  CODELFNGTHOFSTRING  OOO565OO 

/  #CHAPSIZF  #(  <STRTNG-FXPRrsSlON>  $ )  PS  CODFCHARS I ZFOFSTP I NG  OOO566OO 

/  #UPPEP  #(.     [  <STRUCTURF-FIPST-PART>  #.  H  00056700 

<*I>  PS  ChFCKSUpSCRlPTEDFPRUPPER  r  <SUBSCRIPT>  ]8  *>  OOO566OO 

PS  CODEUPPEP  PS  RFSETSPT  00056900 

/  #LOwER  *(  t  <STPUCTl'RF-FIRST-PART>  #.  ]&  000570CO 

<M>  PS  CHFCKSUPSCPIPTEPFPRUPPER  t  <SUBSCRIPT>  1&  #)  00057100 

PS  cnOFLOWFR  PS  RFSFTSPT  00057200 

/  UINTFGER  *(  <STPING-FxPRFSSlON>  #)  PS  CODEPEC TO  I NTFGER  00057300 

/  *(  <INTEGEP"EXPRESSlON>  t )  1  PS  ST ARNPTALLOHFD  J  00057400 

':B0OLEAN-EXpPESSlON>  ::=  <SIMPLF-pOPLEAN>  00057500 

/  <B00LEAN-ASSIGNPEMT>  PS  CPDEnpnDEsTRUCTbOPLE ANSTORE  00057600 

/    <PATTERN-KiATCHU'G-STATEPENT>    t  00057700 

iSIKPLE-PUDl  FAN>  t»  =  < I MPL I C AT  I 0N>  000576C0 

/  <SIMPLE-P0PLFAN>  I     #EGV  /#<#«#>  ]  < I y?\_ I C AT  I PN>  PS^ CODEEOV/ 00057900 

IMPLICATION^  l:=  <ROULEAN-TERM>  OOO56OOO 

/  <IMpLlCATlON>  [  #IMP  /***>  ]  <BOOLE AN-TERM>  PS  CODEIMP  \  OOO561OO 

|BnOLEAN-TEPM>  »!=  <BU0l E AN-F ACTPR>  00056200 

/  <BOOLEAN-TFPM>                      *  OOO563OO 

r  #PR  <ROOLFAN-FArTOR>  PS  COPEPR  00058400 

/  #X0R  <BC'OLEAN-FACTOP>  PS  CPDEXOP  OOO565OO 

/  *PRIF  PS  CODESkIPFACTPRIFTPUE  <HOOLFAN-FACTOR>  00056600 

PS  CODFOP  PS  copffndskipfactpr  ]  j  00056700 

b0olean-factor>  «»  =  <bpple an-sfccnpary>  ooo566co 

/  <boolfam-f act0r>  000569c0 

[   #and  <b0plean-sfc0n!papy>  ps  codfano  00059000 

/  #andif  ps  cpofskippndaryiffalse  <bpplean-sfcondary>  00059100 

ps  codfano  ps  cpdffrdpnparyskip  ]  j  00059200 

;B0OLEAh-SFcONDAPY>  !j=  <BOPLF  AN'-PR  I  M  ARY>  00059300 

/  #NOT  <l,OOLEAN-PPIMRY>  PS  CODENPT  J  00059400 

'BOOLEAN-PRiMARY>  11  =  T  #TRl'E  PS  CPPETRUF  /  <TALSF  PS  CODEFALSE  00059500 

/  t*    PT  TFSTPnni FANSTARALLOWEO  00059600 

/  <BOPLFAN-VARIABLE>    PS  CPDEPOOLEANVALUECALL  00059700 

/  <bOpLFAN-FUNCTIpN>  PS  CPDFBOPLE AMFUNCT I  ON  00O59PP0 

/  #BOPL  #(  <INTFGFR-EXPPESSION>  #)  PS  CODE  I NTGRTOpOOL  00059900 

/  <RFl ATION>  00060000 

/  *{     <BOOLFAN'-EXPRFSSIPK>  #)  00060100 

/  *IF  <P00LEAN-EXPRFSSIPN>  ®S  rDDEFxPSTPTPFNONFALSE  0006U200 

JiTHFN  <P00LFAN-EXPPESSIPN>  PS  CODF  EXPSK  I  PF  LSF  OOO6O3OO 

PS  COOEEXFRKIPTPFLSFFOUND  00060^(00 
#ELSF  <BG(1LFAM-FXPPFSSIPN>  PS  CODEEXPSK  I  PP  A  STFLSFFOUND  #Fl   OOO6O5OO 

/  #CASE  <INTFGFR-FXPRESSIPN>  #PF  PS  CPOFEXPC A SF PRANC H  00060600 
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<RFLATIUN> 


FMPTy  <STRING-EYPRF 

<P0lNTFR-FXPR 
CODENFC 
PS  CODEGFQ 


SI0N> 

SSION> 

ESSlON> 


E; 

cpdesor 
s  cooesxor 

i 


list  t  <roplean-expression>  ps  copeexpc aseentpy  3 
sfparator  *p 

[#DFFAULT  PS  COOEFXFC ASFDFFApLT  <P00l  F  AN-FXPPFSsI  ClN> 
PS  COOFENUFXPCASEPEF AuLT  /  PS  COOENOEXPC ASFDFF AULT  3 
#ESAC  PS  CPOEFNPOFEXPCASE 
3  PS  STARfvOTAlLOwFDJ 
j:c  <INTEGLR-EXPRESSIPK> 
LlSTt<RFLATlONAL-nPERATPR>  EMPTY  <INTEGER-EXPRES 
PS  CODEINTEGFPRFIOP  3 
/  <STRING-EXPRFSSTP>'> 

I  1ST  t  <RtLATlOKAl -CPFRATPR> 
PS  CnpFSTRlNGRFLOP  3 
/  <POINTER-ExPRFSSION> 

LIST  t  <RLLATIONAI.-OPERATPR>  EMPTY 
PS  CnOFPOINTERFELOP  3  J 
<RELATIL'NAL-PFEPATOR>  11  =  f=  PS  CpDFEOL  /  *+    PS 
/  $<    PS  CODtLSS  /  #>  PS  CPDFGTR 
/  [#<  /  *<#  =  3  PS  CODELFp  /  t*i    /    #>l=3 
<PR0CEDI'PF-IP>  :«=  f  <STRUCTUPF"FIRST-PART>  #,  3J 

<*I>  PT  iOISPROCErUPF  PS  PESETSPT  ; 
<STRING-EXPf,'FSSIONJ>  «»=  <SIK'PLF-STRING-EYPRESSIPN> 

/  <STRIWG-ASSIGNMFNT>  PS  COPENPNDESTRUCTSTRI NGSTOR 
<SlMPLE-S7PIN'G-FXPRFSSIPN>  ll«  < STR I NG-TFRM> 

/  <SlMPLE-S3RlNiG-FXPRESSlPN>  #SOR  <STR I NG-TFRM>  PS 
/  <SlMPLE-STRlNG"'FXPPESSlPN>  #SXOR  <STRI  NG"TFRM>  P 
<STRING-TERK->  i:  =  <ST R I NG-F ACTOR> 

/  <STpING-TERM>  #SA>'P  <STPI  WG"FACTOR>  PS  CODESAND 
<STRING-FACTPR>  »«=  <STRING-PPIMARY> 

/  JSK'PT  <STRINf,-PRIMARY>  PS  COpESNOT  / 
<STRING-PhlMARY>  IJ  =  [<(MT  PS  CPPFMT 

/  t*    pT  TFSTSTRINGSTARALLPWED 
/  <*S>  PS  CUDFSTRlNr,CPMSTANT 
/  <STRlNG-FUNCTIOK'>  PS  COPFSTRINGFUNCTIPN 

/  IDECI^AL  *C  <INTEGFR-FXPRFSSI0N>  #)  PS  CODF I NTGRTOOEC I MAL 
/  JCONVFRT  #(  <STPIMG"FXPPESSIPN>  *»    <STRI  NG-EXPRESS'l  0N>  *> 
<STRlwG-rxPPESSIOW>  t  PS  SETCONVERTOFF AULT 
/  *,    <INTEGFR-EXPPESSIPM>  3  f)    PS^COPFCONVFRT 
/  #STRIMG  *(  <INTFGFR-EXPRESSIPK>  [  PS  CODESTR I NGPEF AULT 

/  t,    <INTEGFR-EXPPFSSI0N>  3  *)  PS  COPFlNTGRTOSTP I NG 
/  *(  <STPING-FXPRFSSI0N>  #) 

/  #IF  <B00LEAN-FXPRFSSIPN>  PS  CPDEEXPSKIPTHFNOMFALSE 
JTTHFM  <STRING-EXPPFSSION>  PS  CODEEXPSKIPELSE 
PS  COPFEXPSKIPTPEI  SFFPUND 

IELSE  <STRIMG-EXPPFSSIPN>  PS  CODEF XPSKl PPASTFLSEFOUNp  #FI 
/  JTCAsF  <IN7FGER-FXPFFSSIPN>  *0F  PS  CODFEXPC ASFPRANCH 
LIST  C  <STRING-FXPPFSSIPN>  PS  CODFEXPC ASEFNTRY  3 
SEPARATOR  t * 

[IDFFAULT  PS  COTEFXPC  A  SFDEF  Al'L  T  <STR  I  N'G-E  X  PRESS  I  C!N> 
PS  CPnEEhUEXPCASEPEFAi'LT  /  PS  COOFNOEyPC ASFDFFAUL  T  3 
#ESAC  PS  CPOEFNPOFEXPCASE 
3  PS  STAKNOTALLPWFP 

i,    #[  <INTFGEP-FXPRFSSIPN>  PS  COOFF IELDST ART  #1 
<lNTFf.FP-FxPPFSSir,N>  PS  CPPEF  I ELDL  ENGTH  I  3  3J 
<STPIKG-VARIAPLF>  PS  C PPESTR T NGV ALUEC ALL* 
<POIUEK-EXpRESSlON>  :!=  <PP  I  *  TE  R-  VAR  I  ABl  F  >  PS  CODEPO J NTFRVAL UFC ALL 
/  <POJNTFR-FUNCTlrN>  PS  CPDFPO T NTERF UNCT I  ON 
/  <POJNTER-ASSIGNMENT>  PS  CODENONDE  STRUCTPOI  NTFRSTORE 
/  INULL  PS  COOFNUI L 

/  IIF  <P00LEAN-EXPRFSSI0N>  PS  CODEFXPSK IPTHFNONFALSE 
ITHFN  <P0INTER-FXPPESSIPN>  PS  COPFEXPSK I PFLSF 
PS  COOFFXPSKIPTPFI  SEFOUMD 


t 


/ 


00060700 
00060600 
00060900 
00061000 
00061 100 
00061200 
00061300 
00061400 
00061500 
000616C0 
00061700 
00061H00 
00061900 
00062000 
00062100 
00062200 
00062300 
00062400 
00062500 
00062600 
00062700 
00062600 
00062900 
00063000 ; 
;00063l00 
00063200 i 
00063300 ; 
00063400 
00063500 
00063600 
00063700 ; 
00063600, 
00064000 
00064100. 
000  64-200'; 
000^4300 
0006^400 i 
00064500 
00064600 
00064700 
00065000 
00065100, 
00065200 
00065300 
00065400 
00065500 
00065600 
00065700 
00065600 
00065900 
00066000 
00066100 
00066?00 
00066210 
00066300 
00066400 
00066500 
00066600 
00066700 
00066&00 
00066900 
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fFLSF  <POINTFR- 

/  *CAsE  <INTFGER 
LIST  I  <POINTE 
SEPARATOR  t> 
riDFFAULT  PS  C 
PS  COPEFNDEXPC 
tESAC  PS  CODEE 

/  #PTR  *(  PS  SCA 

t    <STRUCTURF-F 

t    PS    CODEPTRl'M 

/    SUBSCRIPT 

/    ^ALLOCATE    #(    < 

OCATlON-STATFMENT>    lis 

#ALtHCATE    #(     < 

/  #REl  EASE  #(PS 
<*I>  PS  CUDERE 
PATTERN-EXPRESSlON>  n=  * 

/    <PATTFRN-ASSIG 

/  #SPAN  #(  <STbI 
/  #,  <INTEGER- 

/  #ANY  C  PS  CORE 
PS  CODFANY 

/  JJEXCEPT  #(  <ST 
/  t>     <INTEGFR- 

/  #IF  <BOOLEAN-E 
#THFN  <PATTEPN 

ps  r.noEExPSKiP 

»LLSF  <PATTERN 
/  tfCAsE  <INTEGER 
LIST  t  <PATTER 
StPARATOR  #» 
t#DEFAUl.T  PS  C 
PS  CODEENDEXPC 
#ESAC  PS  CDOEE 
RN-ALTFPNATIVE"LIST> 
/  <PATTFRN-ALTFR 

rn-factpr>  »:=  c  <st 
list  [  <string-v 
/  <pattern-varia 
/  <pattern-f  un'ct 
/  <pattern-exprf 

ER-VARJABIF>  Its  r  < 
PS  COpElNTEGEPVA 
/  <ACCFSS-VARIAB 

AN-VARIABL.F>  lis  [  < 
PS  COPE BOOLEANVA 
/  <ACCESS-VARTAP 

G-VARIAKLF>  ::=  [  <P 
PS  CPPFSTRINGVAR 
/  <ACCESS-VARIAB 

ER-VARIABI F>  Its  \  < 
PS  COnFPOINTERVA 
/  <ACCFSS-VARTAB 

RN-VARIABLF>  ::=  r  < 
PS  CFJDFPATTEPNVA 
/  <ACCf  SS-VARIAP 

S-VARI APLF>  s  1  =  <*I> 

t  PS  NUSTpEUNSUR 

PS  CHFCKSUBSCR 

SS-VARlAR|r>  Its  t  < 
/  <  A  C  C  E SS-VARIAP 


EXPPESSI0N> 

-EXPRESSIPN> 

R-FXPRFSSION 


PS  CODEEXPSKIPPASTELSEFOUND  #FI 

*PF  PS  CDDFEXPCASEPRANCH 
>  PS  CODEFVPCASFENTRY  3 


'FA(iLT  <PrjlNTER-EXPRESSlPN> 
PS  CODENOEXPCASEDFFAULT  I 


fSUPSCRIPTFO]  PS  RESFTSPT  #) 
iLLOCATEFUNCTION  #)  i 


DPFTXPCASEDP 

ASEPFFAULT  / 

NPOFEXPCASE 

NPTPFUNCTIOM 

IPST-PART>  t,     IS  <*I>  PS  VEPIFYCANBEPOIMEDTO 

SURSCRIPTED 

>  PS  COPEPTR 

*I>  PS  COPEA 


*I>  PS  COPEA 
SCANRFLEASF 
LFASE  PS  PES 
<t<  <PATTERN 
NHENT>  PS  C 
KG-FXPRESSIO 
EXPRFSSI0M> 
ANYPEFAULT  / 

RING-EXPRESS 
EXPRESSION > 
XPRFSSIPN>  P 
-FXPPE5SinN> 
TPFl SFFOUND 
-ExPRESSlPN> 
-FXPRESSIPN> 
N-EXPRESSION 


tpATTE 
:PATTF 


INTEG 
:BOOLE 
STRIN 


POIM 
PATTE 
ACCFS 
FROCF 


OPFFXPC 
ASEPEFA 
NTOFEXP 

:  »=  <P 
NATIVE- 
RINB-VA 
ARIABLE 
B|  E> 
I.PN> 
SSTPN> 
POINTER 
RIABLE 
LE>  PT 
POINTER 
RIABLE 
LF>  PT 
OINTFR- 
IARI  E 
LF>  PT 
POINTER 
RIABLE 
LE>  PT 
PPIMTER 
RI API E 
LF>  PT 

FT  TES 
SCRTPTE 
I  P  T  M  A  f  C 
POINTER 
LF>  PT 


ASEOF 

ULT  / 

CASE 

ATTFR 

LIST> 

RlABi 

>  /  < 


3  SEP 
-SPEC 

ACCES 
-SPEC 

ACCES 
SPFCI 

ACCES 
-SPEC 

ACCES 

-SPEC 

ACCES 
TACCF 
P  /  < 
H  ]  J 
-SPEC 
ACCES 


LLPCATEPROCEOURF  t ) 

[  <STRUCTURE-FIRST-PART>  #,  H 
FTSPT  f)  I 

-alternativf-list>  *>*> 
ndfnonpfstpuctpattfrnstore 
n>  [  ps  copespanoefault 
]  #)  -ps  cooespan 
#c  <integer-expressi0n>  *)  3 

i'on>  [  ps  codeexceptdefault 

i  #)  ps  copfexcept 

s  codeexpskipthfnonfalSe 

PS  CODFEXPSKIPELSE 

PS  CODEEXPSKIPPASTELSEFOUND  #Fl 
*PF  PS  CODEEXPCASFBRANCH 
>  eS  COPEEXPCASFENTRY  3 

FAulT  <PATTFRN-FXPRESSlPN> 
PS  CODENOEXPCASEDEFAuLT  3 
I 
N-FACTOR> 

tf   <pattern-factor>  ps  codepor  ; 

E>  FOLLOWED  BY  <ARROW>  38 
*S>  /  #NT 


ARATOR  #&  I 

IFIER>  3&  <INTEGER-NAME> 

SlNTEGER  ; 

IF  TER>  ]&  <POOLEAN-NAME> 

SBOOLEAN  ; 

FlFR>  38  <STRING-NAME> 

STRING  \ 

ifier>  3&  <pointfr-name> 

spointep  \ 

if ier>  jt  <pattfrn-name> 

spattern; 

ss 

surscript> 

ifter>  ]&  <procfss-na^e> 
sprocess  \ 


00067000 
00067100 
00067?00 
00067300 
00067400 
00067500 
00067600 
00067700 
00067600 
00067900 
0006b00Q 
00066100 
00066200 
"OOO6&3OO 
00068400 
00066500 
00066600 
00068700 
00066600 
00068900 
00069000 
00069100 
00069200 
00069300 
00069400 
00069500 
00069600 
00069700 
00069800 
00069900 
00070000 
00070100 
00070200 
00070300 
00070400 
00070500 
00070600 

00070700 
00070600 
00070900 
00071000 
00071100 
00071200 
00071300 
00071400 
00071500 
00071600 
00071700 
00071600 
00071900 
00072000 
00072100 
00072200 
00072300 
00072310 
00072400 
00072500 
00072600 
00072700 
00072800 
00072900 
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<CODE-VARI  APL  E>  »»=  [  <POI  NTER-SPEC  IF  TFR>  H  <COOF-NAME>  00073000 

/  <ACCESS-VARIABLF>  PT  ACCESSCPDE  )  000731PO 

<FILE-VAPIAPLF>  »«=  t  <P0INTEP-SPFC I F IFR>  H  <FHF^NAME>  00073200 

/  <ACCFSS-VARIABLF>  PT  ACCESSFRF  J  00073300 

<STRllCTOPE-VARlABLF>  11=  t  <Pnl  NTER-SPEC  I  F  IER>  ]«  <STRUCTURF"F  I  RST-P  ART>0007  3400 
/  <ACCESS-VARIABLF>  PT  ACCESSSTRHCTURE  ;  00073500 
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OSL?    /SMANTIx 


LISTED  BY  THFSlS   ON    JANUARY   3#  1971   AT    1  f  21  A ,  M 


*  NOL 1ST  SAVEZlPDECK  DISK  TEST 
JPEGIN  $UF-PFRN(200)j 

INTEGER    iDCOUNTFRi. 


IDLISTCOUNTEp* 

currentdecltypf* 

currentdeclown, 

currentdeclnodf* 

currentdeclmacpo' 

currentnumbrofsubs, 


CURRENTPPOCEDUPEID* 


CURRENT  EXPRESS  I ONTYPE* 


CURRENTSTRUCTUPEPTR* 


CURRENTNUMPEROFSUPS 


CURRENTIDPTRj 


CURRENTFORMALPAPAME 


currentnumperofforf. 
currentactualpapame 


» 

r 
* 
% 
% 
r 
% 
% 
* 
r 
* 

% 

r 
% 

f 
r 

% 

* 

r 

t 

t 
r 
t 
t 

TRUCTURE 

* 
f 

* 

* 

TERLISTP 

f 

t 
% 

alparame 
* 

X 

TFRCOUNT 
% 
% 
% 
t 


currentmaxaccessnumbfr* 


THIS  IS  THE  CURRENT  NUMBER 
DECLARATION  IDS  PROCFSSED  I 
THE  CURRENT  BLOCK  HEAD. 
THIS  CONTAINS  THE  CURRENT 
NUMBER  VF    IDS  PROCESSED  IN 
ID  PART 

THIS  IS  THE  DEFAULT  TYPF 
THE  CURRENT  DECLARATION  . 

si  IF  THIS  DECLARATION  IS 
OWN. 

=1  IF  THIS  DECLARATION  IS 
NODE. 

'  *1  IF  THIS  DECLARATION  IS 
MACRO. 

WHEN  A  BOUND  PAIR  LIST  Is 
BEING  SCANNED  IN  THE  PARSE 
A  SUBSCRIPT  LIST  OR 
AN  ARRAY  PART*  THIS  VARIAPL 
WILL  CONTAIN  THE  NUMBER  OF 
SUBSCRIPTS  ALREADY  RECOGNIZ 

THIS  IS  A  POINTER  TO  THF 
CURRENTLY  BFING  DFFINED 
PROCEDURE  IN  IDSTACK. 

THIS  VARIABLE 
CONTAINS  THF  TYPE  OF  THE  LA 
EXPRESSION  SCANNED. 

IF  A  structupf  variable  W 

LAST  SCANNED*  THIS 
CONTAINS  A  POINTER  INTO 
STRUCTURETAP  TO  THE  APPROP- 
RIATE SUBSTRUCTURE  VECTOR. 
S> 

THIS  IS  THE  LENGTH  OF 
THE  ABOVE  POINTED  AT  VECTOR 

IF  THF  LAST  ID  SCANNED  WA 
PART  OF  A  STRUCTURE*  THEN  T 
VARIABLF  POINTS  INTO 
STRUCTURETAP  WHERE  THEID  IS 
TABULATED, 
OINTER* 

THIS  VARIAPLF  IS  USED 
DURING  ACTUAL  PARAMETER  SCA 
TO  POINT  TO  THF  BEGINNING  0 
THE  DECLARED  FORMAL  PARAMFT 
L  1ST  IN  STRUCTURETAP. 
TERS* 

THIS  IS  THE  LFNGTH  OF 
THE  ABOVE  VECTOR. 
p 

THIS  IS  THE  POSITION  IN  T 
ACTUAL  PARAMETFR  LIST  OF 
THE  ACTUAL  PARAMETER  CURRFN 
BEING  SCANNFD. 

THIS  VARIAPLF  IS  THE  CODE 


OF 

N 


AN 


OF 


ooooooio 
00000020 
oooooioo 

O0O002O0 

00000300 

00000400 

00000500 

OOOOOhOO 

F0R00000700 

00000600 

00000900 
ooooicoo 

00001100 
OOOOU'OO 

00001300 

OOOOHOO 

00001500 
oooouoo 
00001700 

E   00001600 

00001900 

ED.00002000 

00002100 

00002200 

00002300 

00002400 
00002500 
00002600 
00002700 
00002600 
00002900 
00003000 
00003100 
00003200 
00003300 
.  00003400 
S  00003500 
HIS00003600 
00003700 
00003600 
00003900 
00004000 

oooooioo 

00004200 
00004300 
00004400 
00004500 
00004600 
00004700 
00004600 
00004900 
OOOObOOO 
00005100 
TLY00005200 
00005300 
00005400 
00005500 


ST 


AS 


NS 

F 

ER 


HE 


iQk 


CURRENTSEGkENT* 

CURRENT  ADDRESS* 
CURRENTLFVEL* 

MAXIMUMSFGMEMi 

CURRENTMAylMUMDISPLACE 

CllRRENTCASECDUK'T* 


LASTTYPE* 


pELOP, 


CUPRENTACCESSIDJ 

POINTER    PMESOUT; 

BOOLEAN    STPUCTUREISOWN* 

pRlNTOBjECT* 
SCANNlNGFORMALPARAMFTE 


ASTERISKALLOWEP* 


NOMAmECALL  > 


r 
x 
r 
* 
t 
t 

r 
% 

% 
% 
% 

% 

MFM> 

* 

* 
% 

7 
t 

I 
t 
% 

r 
% 
% 
* 
r 
r 
% 
% 
r 
t 
r 
% 
% 
% 
i 
% 
x 
r 
% 
% 
r 

T 

pdecl 
* 
t 
t 
r 
r 
r 
* 

* 

* 

i 
r 


NUMPEP 
ACCFSS 
ACCFSS 
ACCFSS 
IS  ALL 


DF  THE  LAST 
TYPE,  E.G. 
MIGHT  BE  #1 
MIGHT  BF  #2, 


ASSIGNED 
FIFO 

AND  LIFO 
IF  THAT 


THERE  ARE*  THEN 

CURRENTMAXACCESSNUMBER 

WOULD  PF  2. 

CURRFNT  CODE  SEGMENT 
CURRFT  CODE  ADDRFSS 
CURRFNT  LEVEL  REGISTER 

IN  USE 

THE  I  ARGEST  SFGMFNT 

NUMPEP  COMPILED  SO  FAR 


THE 
BE  AS 

THI 
NUMPE 
STATE 
CASF 
STATE 

USE 
ASTER 
LASTT 
THE  L 

RFL 
RELAT 
LAST 
0 
1 
2 
3 
4 
5 
6 

THI 
CURPE 
ACCFS 

THI 
IN  AC 
ARRAY 

THI 
OWN  S 
DECl  A 

TRU 
IS  DE 
ARATI 

THI 
FORMA 
IS  PE 
PUSHE 
DECL  A 
A  FOR 

THI 
ASTER 
INVC'K 
STATE 

TPU 
A  SUB 
SCAHN 
SHOUL 


NEXT  D 
SIGNED 
S  CONTA 
R  OF  EX 
MFNTS  S 
EXPRESS 
MFNT. 
D  TO  HA 
ISK  CON 
YPF  IS 
AST  VAP 
OP  TELL 
IONAL  0 
SCANNED 
NONE 

< 

< 

c 

> 

S  /OINT 
NTl  Y  BE 
S  TYPE 
S  POINT 
TIPN(O) 
MESOUT 
S  SWITC 
TRUCTUR 
PFD, 
E  IF  OB 
SIRED 
ONS* 
S  SWITC 
L  PARAM 
ING  SCA 
D  WHEN 
RATION 
MAL   PA 
S  IS  TR 
ISK  CON 
FD  IN  A 
MFNT. 
F  IF  A 
SCPIPT 
FD  AND 
D  PE  EH 


ISPLACEMFNT  TO 
AT  THIS  LEVEL 
INS  THE  CURRENT 
PPFSSIONS  OR 
CANNED  WITHIN  A 
ION  OR  CASE 

NDLF  THE 
VEMTIoN  - 
THF  TYPE  OF 
IARLE  SCANNED, 
S  WHICH 
PEPATOP  WAS 


S  TO  THE 
ING  DEFINED 
ENTRY  IN  IDSTACK. 
ER  IS  INITIALIZED 
TO  POINT  TO  THE 


IS 
IS 


TRUE  IP 
BEING 


AN 


JECT  LISTING 


H  IS  TRUE  IF  A 
FTFP  DECLARATION 
NNFD,   IT  MUST  BE 
A  PROCEDURE 
IS  ENCOUNTERED  FO 
RAMFTER. 
UE  IF  THE 
VEMTION  MAY  BE 
N  ASSIGNMENT 

STRUCTURE  OR 

HAVF  BEEN 
NO  NAME  CALL 
ITTFD  BY  THE 


OOOO 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 

oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 
oooo 

0001 
0001 
0001 
0001 
0001 
0001 
0001 
ROOOl 
0001 
0001 

oooi 

0001 
0001 
0001 

oooi 

0001 

oooi 


5600 

5700 

5600 

5900 

6000 

6100 

6?00 

6300 

6<i00 

6500 

6600 

6700 

6600 

6900 

7000 

7100 

7200 

7300 

7400 

7500 

7600 

7700 

7600 

7900  ; 

8000  : 

6100 

6200  ' 

63OO 

6400 

8500 

8600 

8700  ! 

6800  ' 

6900  J 

9000! 

9100 

9200 

9300 

9«00 

9500 

9600 

9700 

9600 

9900 

OOOO 

0100 

O2OO 

0300 

0400 

0500 

0600 

O7CO 

0600 

0900 

1000 

1100 

1200 
1300 
1400 
1500 
160C 
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*  VARIABLF  CODE  PROCEDURES. 
CURRFMSTRUCTURFPTRISINIDPTACKJ 


%  TH 

?  CURR 

%  intp 

*  STRU 
ARRAV      HESPUTIOH7J*             *  TH 

?  nUTP 

*  LIST 

*  WILL 
?  TH 

y  poin 

»  FOR 

9"  ACCF 
DEI  I'M..     PI.ANKMESPUT  =  REPLACF  PMESOUT  p 

%  TH 

?  RLAN 
.SFJIPLA 

BY  "*** 

%  TH 

f  FIRS 

*  INTO 
WRITEHESOUT  *  WRI  TE CL  INF> 1 7, MFS 


MESOUTtOM73* 

ACCESSTAPLFtO:63i; 

PLANK  M I 
FPPHS 


TSKTSKfFALSE»FAL: 
RFPLACF  PMtSOUT 


UNDECL 
INT  = 
POOL  = 
STR  = 
PTR  = 
FVN'T  = 
PROS  = 
PATT  = 
STRUCT 
ACCESS 
PSLCOD 
PSLFIL 
LAPL  = 
ACCESSVAR= 
LFAVE= 


iE  = 
.E  = 


0  # 

1  * 

2  t 

3  # 

4  # 

5  * 

6  # 

7  # 

8  # 

9  t 

10  * 

11  # 

12  # 

13  # 
GO  TO  # 


TH 
ARRA 
LINE 

TH 


IS  VA 
EMTST 

THE 
CTURE 
IS  AR 
UT  HE 
IMG, 

.ALWA 
IS  AR 
TEPS 
THF  L 
SS  TY 
y  *    w 

IS  ST 
KS  IN 
NKHFS 
*  "# 
IS  DE 
T  PAR 

THF 
OUT[* 
IS  PF 
Y  MES 


RIAPL 

RUCTU 

1DSTA 

TAP. 

RAY  I 

SSAGE 

THF 
YS  PO 
RAY  C 
INTO 
OCATI 
PE  PE 

FPR 
ATFHF 
TO  TH 

out; 

t, 

FINE 
T  PF 
ARPAY 
))  t> 
FINE 
OUT  I 


F  IS  TRUE 
RFPTR  POI 
C*  INSTEA 

S  USED  TO 
S  FOR  THE 
POINTER  P 
INT  TO  ME 
ONTAINS 
THE  IPSTA 
ON  OF  FAC 
CLAREP. 
17  WORDS 
NT  WILL  P 
F  ARRAY  M 


IF 
NTS 
D  OF 

STOR 
SOUR 

MFSOU 

soon 

CK 

H 

#> 
UT 
ESOuT 


WILL  PUT 

AN  ERROR 

HESOUT. 

WILL  WRIT 
NTO  THE  F 


THF 
HESSA 


E  THE 
ILE 


pfgins  r  pegin  lapel  fr 
fnps  =  ;erudfcorp«  enp  * 


THTNS  =  THEN  RFGIN  t, 
ELSE'S  =  FND  ELSE  PEGIN  t . 
FI  =  END  ft 


TH 
TH 

TH 
TH 
TH 
TH 
TH 
TH 
TH 
TH 
TH 
TH 
TH 
TH 
AN  p 
UPECORP 

PF 
IN  P 
PEGI 
DECL 
USE 
RETll 


IS  I 
IS  I 
IS  I 
IS  I 
IS  T 
IS  I 
IS  I 
IS  T 
IS  I 
IS  I 
1$  T 
IS  I 
IS  T 
IS  I 
IS  A 
SL  L 

;#> 


is 

IS 

IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 

is 


LLOW 
EAVF 


UNPE 
INTE 
BPPL 
STRI 
POIN 
EVFN 
PPPC 
PATT 
STRU 
ACCE 
CODE 
FILE 
A  LA 
AN  A 
S  ONE 


CARFD. 

GER. 

EAN. 

NG. 

TER. 

T. 

ESS. 

ERN.  A 

CTURE. 

SS. 


PEL 
CCESS 
TO  SI 


GINS  ANp  ENDS  WHEN 
LACF  OF  THE  OUTERMO 
N  AND  END  IN  A  PROC 
ARATION  ROPY  ALLOW 
AN  OSL  PFTliRN  STATE 
RN  FROM  THF  PROCEDU 


*  THE  APOVE  THREE  DEFlN 
r  ALLOW  ONE  TO  USE  OSL?  I 
%  STATEMENTS  OF  THE  FOPMj 
%  IF  <B.E.> 

%  THFNS 

*  <STATEMENT>; 
%  <STATFMENT>; 
% 


VARBL 
MULAT 


USED 
ST 

EPURE 
ONF  T 

KENT 
RE. 


ES 
F 


000 
000 
000 
000 
000 
000 
E  000 
CEOOO 
T  000 
03000 
000 
000 
000 
000 
000 
000 
.  000 
000 
000 
000 
GEOOO 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
E  000 
E  000 
000 
000 
000 
000 
000 
000 
0  000 
TOOOO 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


11700 
11800 
1  1900 
12000 
12100 
12200 
12300 
12400 
12500 
12600 
12700 
12  800 
12900 
13C00 
13100 
13200 
13300 
13400 
1  3'j00 
1  3600 
13700 
13600 
13900 
14000 
HlOO 
1  4200 
14300 
14400 
14^00 
14600 
14700 
14800 
I4c,00 
15000 
15100 
15200 
15300 
15400 
15500 
15600 
15700 
15800 
15V00 
16000 
16100 
16200 
163C0 
16«00 
16500 
16600 
16700 
1  6800 
16900 
17000 
17100 
17200 
17300 
17400 
17500 
17600 
17700 
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* 
* 
% 
% 
t 

X      EtSFS 

* 

% 

% 

* 

J! 

X 

% 

*  FI 
pPANCHCpPANCHl»PRANCH2*RRANCH3)  s 
PFGIN 

IF  PRINTOPJFCT 

THFN 

BEGIN 

blankmesput; 

replace  pmtsflut  by  currfntsegmemt  for  3  dlg]ts* 

"l"*RPANCH1  FOR  4  DIGITS*  "***   "*BRANCH3j 
REPLACE  FMESPUT+35  PY  "<"> 

CURPEK'TSEGMENT  FOR  3  DIGITS*"*"* 

RRAKH?  FOR  4  DIGITS*")"* 
WRITEMESOUT 


<statfment>) 
<statement> 

<statfment>; 

<STATFMENT>> 


<STATEMENT>* 
<STATE^ENT> 


END 
END  #* 


DPERATORCOPEPAT 
BEGIN 

IF  PRINTOB 

THEN 

BEGIN 

BLANK 
RFPLA 


*  THIS  DEFINE  OUTPUTS  A 

*  BRANCH  INSTRUCTION  OF  THE 

*  FORM: 

X  SEGtADDR   BRANCH   (SEGlADDR) 


WRITE 

END> 
SINCR(CURPENTADDRFSS) 

FND  #* 


OR1)  = 
JECT 


MESOUT) 

CE  PMFSOUT  BY  CURRENTSEGMENT  FOP  3  DIGITS* 

"f"*CURRFNTADDPESS  FOR  4  DIGITS* 

"      "*OPERATORi; 
MESOUT 


XOPLRATORCXOPERATORl  ) 
PFGIN 

IF  PRINTOPJFCT 
THEN 
'  BEGIN 

BLANK 
PEPLA 


*  THIS  DEFINE  EMITS  AN 

*  OPERATOR  AS  OBJECT  CODE. 

*  CURRENTADDRESS  IS  INCREMENTED. 


MESOUT; 

CE  PMFSPUT  BY  CURRrN TSEGMENT  FDR  3  DIGITS* 

"t"*CURRFNTADDRESS  FOR  4  DIGITS* 

"***   "*XPPERATOPl  J 
MESOUT 


WRITE 

END) 
SlNCR(CliRPFNTADDRFSS) 


00017600 
00017900 
00016000 
OOOlblOO 
00016200 
00016300 
00016400 
OOOI65OO 
00016600 
00016700 
00016600 
00016900 
00019000 
00019100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019600 
00019900 
00020000 
00020100 
00020200 
00020300 
00020400 
00020500 
00020600 
00020700 
00020600 
00020900 
OOO2IOOO 
00021100 
00021200 
00021300 
00021400 
00021500 
00021600 
00021700 
00021BOO 
00021900 
00022000 
00022100 
00022200 
00022300 
00022400 
00022500 
00022600 
000?2700 
00022600 
00022900 
00023000 
OOO231O0 
00023200 
OOO23300 
00023400 
00023500 
00023600 
00023700 
00023600 
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FND  tt 


%         THIS  DEFINF  EMITS  AN 

*  OPERATOR  AS  OBJFCT  CODE. 

%  CURRENTADDRFSS  IS  INCREMENTED 

*  THE  OPFRATOP  IS  MARKED  AS 

%  AN  OVERWRITTEN  INSTRUCTION. 


COUPLE ( COUPLE 1»CPUFLF2» COUPLE  3, C0UPLE4)  = 
BEGIN 

IF  PRINTOPJECT 

THEN 

BEGIN 

blankmesduti 

replace  pmesout  by  currfntsegmemt  fop 
»im*currfntaddress  for 

"      ">COUPLEl>"   (% 


DIGITS 
DIGITS 


C0UPLF2  FOR  2    D IG ITS* "» nt 
COUPLE3  FOR  4  DIGITS*")   "■ 
COUPLF4; 


WRlTFHESOUT 


END! 
SINCR(CURRENTADDRESS) 


END  tt 


OUTPUT PEL  OP (OUT  PUT PPL  OP 1) 
BEGIN 

IF  PRINTOPJECT 

THEN 

BEGIN 


*  THIS  DEFINF  EMITS  AN 

%    OPERATION  CODE  FOLLOWED  BY 

*  A  (LEVEL ^DISPLACEMENT)  COUPLE 


INTE 
POTN 
GETL 

BLAN 
REPL 


CASE 
BEG  I 


END  I 
RELO 


END) 
IF  ( 

OR  1 
OR  I 
THFN 
WRIT 


f.ER  II 

TER  PI 

KSYM(1)I 

KMESOUTI 

ACE  PlPMFSOljT  BY 

CURRENTSEGMENT  F  O^P  3  DIGITS* 

"lw*CURRENTADDRFSS  FOR  4  DIGITS* 

"      "#OUTPUTRELOP1>M-"I 

RELOP  OF 
N 

I 

REPLACE  P»P  BY  »'LE  SS-THAN") 

REPLACE  PIP  BY  "LESS-OR-EOUAL"! 

REPLACE  P«P  BY  "EGUALM; 

REPLACE  P»P  BY  "GRF ATER-OR-EQ(lAL"! 

REPLACE  PIP  BY  "GREA TER-THAN" I 

REPLACE  PIP  PY  ♦"NOT-EQUAL" 

I«-$OPD(MSTACK**TOP+l>PSYM))  =  •»<" 

r  "<"  OP  I  =  "="  OP  I  =  n>" 

=  ">"  OR  1  =  "*" 

REPLACE  PIP  BY  "-PART  I AL'DFSTRUCT I VE"! 
FMESOUTI 


P  «■  01 


FND  tt 


%         THIS  DEFINE  FMITS 

*  RELATION  OPERATOR  CODE 
t  FOR  INTFGERS/STRINGS* 

*  AND  POUTERS. 


OPFRFIRSTPART  «= 


00023900 
00024000 
OOOp^lOO 
.00024200 
00024300 
000?4400 
00024500 
00024600 
00024700 
00024600 
00024900 

000?b000 
*0002^100 
»000?^200 
00025300 
00025400 
00025500 
00025600 
00025700 
00025600 
00025900 
00026000 
00026100 
00026200 
.00026300 
00026400 
00026500 
00026600 
00026700 
00026600 
00026900 
00027000 
00027100 
00027200 
00027300 
00027400 
00027500 
000?7600 
00027700 
00027600 
00027900 
0002^000 
00026100 
00026200 
00026300 
00026400 
00028500 
00026600 
00026700 
00026600 
00026900 
00029000 
00029100 
00029200 
00029300 
00029400 
00029500 
00029600 
00029700 
0002^800 
00029900 


188 


BEGIN 


IF  PRINTOPJF-CT 

THEN 

BEGIN 

BLANKMESOUTJ 
REPLACE  PMFS 


DROP  =  BEGIN  DEFINE  01 


STARLE(   IDSTACK*   1000, 

TYPE  = 
ACCESSTYPEs 


1  14/ 
5t6, 


* 

* 

DPERL ASTPART= 

WRlTFMESrUT 

END) 
SINCR(CliRPENTADDRESS) 

FND  1> 

* 
% 

K 

37  =  y 

% 
% 
% 
% 
% 
f 

* 

% 
% 
% 
* 
r 
% 
% 
% 
% 
t 
* 
% 
t 
r 
% 
% 
% 
% 
% 
r 
r 
? 
% 
% 
r 
% 
r 
* 
% 
% 
% 


OUT  PY  CURPFNTSFGMENT  FDR  3  DIGITS 
t",CURPENTADDRESS  FOR  4  DIGITS 

THIS  DEFINE  PUTS  CUT  T 
THE  FIRST  PART  OF  AN  OPERATOR 


STORETYPE=      11U, 

FETCHTYPE=      15|4, 

NUMRROFSUBS*    1 9  t  8# 

NUMBRSUBSTRUCT=?7l8, 
NUMBROF PARMSs  35j6. 
TYPEFLAGS=      43t5> 


MACRO= 

SUPSCRIPTED= 

PROCEDURES 

NPDE  = 

DWN  = 

MlSCFLAGS= 

fopmalparm= 

VAL  UEPARMs 
HASBEtNSPECa 


43:1, 
44«1, 

46 1 1  # 

47ll, 
4918* 
49t  1  > 
50l  1^ 
51U* 


ACCESSpRncFDURF=5?tl* 
DUHMYPARMs      53  t  J  * 


TH 
THE 
IF  P 
x#;#; 

TH 
INTO 

TH 
CURP 
AND 
TO  E 

TH 
TYPE 

TH 
ACCF 
DECL 

TY 
DATA 

TY 
DATA 

TH 
NUMP 

NU 

NU 

TH 
STOR 


IS  DEFINE  OUTPUTS 

LAST  PART  OF  AN  OPERATOR 

RINTOBJFCT  IS  TURNED  ON. 

IS  DEFINE  IS  USED  TO  TROP 

A  NEW  SEGMFNT. 
IS  STACK  STORES  ALL 
ENTLY  DEFINED  IDENTIFIERS 
THE  INFORMATION  RELATIVE 
ACH  OF  THEM. 
IS  FIELD  HOLDS  THE  OSL 

OF  THE  DATA. 
IS  FIELD  CONTAINS  THE 
SS  TYPE  NUMPER  OP  DATA 
ARED  ACCESS. 
PE  OF  STORE  FOR  ACCESS 

PE  OF  FFTCH  FOR  ACCESS 


RlGTARPTRs 


57:13. 


MI 

FO 

CA 

TH 

BEEN 

PROC 

TH 

TH 

PARA 

ACCF 

TO  I 

VARI 

ACCF 

TH 

TO  T 

CURP 


IS  FIELD 

ER  OF  SU 

MBFP  OF 

MBtR  OF 

E  FOLLOW 

ED  HERE: 

MACP 

SUBS 

PROC 

NODE 

OWN 

SCELLANF 

RMAL  PAR 

LL  PY  VA 

IS  FORMA 

DFCLARE 

EDURE  HE 

IS  IS  AN 

IS  IS  A 

METER  IN 

SS  PRDCF 

NSPF  THA 

ARLF  IS 

SS  PROCF 

IS  POINT 

HE  ID  CH 

ENT  SEMA 


CONTAINS  THE 
PSCPIPTS. 
SUBSTRUCTURES. 
PROCEDURE  PARMS. 
ING  TYPE  FLAGS  AR 


0  FLAG 
CRIPTED 
EDURE  N 

FLAG 
FLAG 
OUS  FLA 
AMFTER 
LUF  FOR 
L  PARAM 
D  IN  TH 
AD ING. 

ACCESS 
DUMMY  F 
SEPTED 
DUPE  IN 
T  THE  A 
INCLUDE 
DURE  CA 
S  RACK 
ARACTER 
NTIC  Fl 


VARIABLE 
AME 


GS 

MAL  PARM. 
ETER  HAS 
E 

PROCEDURE 
OPMAL 
INTO  AN 

ORDER 
CCESS 
D  IN  THE 
LI  . 

INTO  BlGTA 
S  AND 
ELD  FOP 


0003 
0003 
0003 
0003 
0003 
,0003 
,0003 
0003 
0003 
.0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
OOO3 
0003 
0003 
0003 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 
0010 

ooio 

0010 

ooio 

0010 

ooio 

0010 

ooio 

E0010 

ooio 

0010 
0010 

ooio 

0010 
0010 

ooio 
ooio 
ooio 
ooio 

0010 

ooio 

0010 
0010 
0010 
0010 
0010 
0010 
0010 
B0010 
0010 
0010 


0000 
O'lOO 
0200 
0300 
0400 
0500 
0600 
0700 
OtiOO 
0900 
1000 
1100 
1200 
1300 

uoo 

1500 

1600 

1700 

lbOO 

1900 

2000 

0100 

0200 

0300 

0400 

0500 

0600 

0700 

OBOO 

0900 

1000 

1100 

1200 

1300 

1400 

1500 

1600 

1700  : 

ItiCO 

1900 

2000 

2100 

2200 

2300 

2400 

2500 

?600 

2700 

2eoo 

2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3S00 
3900 
4000 
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STRUCTURTPTRs   70l 1 3# 

FORMALPARMPTRb  B3U3> 

LFVF.L  =         97l6» 
FETCHPR0CEDUPE=103|13# 
ST0REPR0CEDUPE  =  H6il3> 
PLDSEMFIELD*    129|15# 


ISDEFINED-. 


129ll# 


ISRFINGDFFINFD=130|1* 
FORWARDDEFINFP=131 l 1* 
IDSTACKPTR=     1 32  I  1 ?# 
DISPLACEMENT  =  145»8> 

STRUCTPTRBEFORF=153tl3, 

FFTCHAUXPTR=    166 | 1 3* 


STPREAUXPTR*    179»t3» 
LABELSEGMENT  =  153  » 15* 
LABELSTARTADrRESS* 166:1 
LAPELENJ0A0DRFSS  =  179ll3) 
STPUCTURETAB*   1000* 


TYPE  s 
ACCESSTYPE= 

$TPRETYPF= 


1|4, 
5i6# 

11  t4» 


FETCHTYPE=  I5l4> 

K'UMBROFSUPSs  19lfl> 

NUMBRSUBSTRUCT=27l8» 

MUMBROf  PARMSs  35l8# 

TYPEFLAGS=  43i5> 

MACRO=  43»1> 

SUBSCRIPTED*  44  t  1  » 

PR0CEDURF=  45ll» 

K'PPF_=  46  S  1  # 


r 
t 
y 
% 
% 
% 
t 
% 
y 
v 
y 
t 
% 
t 
% 
r 
% 
t 
r 
r 
% 
% 
% 
y 

y 
% 
y 
% 
% 
r 
r 
t 
% 

3*r 
% 
y 
r 
x 
% 
* 
% 
% 
% 
% 
% 
r 
r 
% 
% 
% 

Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 
Y 


THIS  IP. 
THIS  P 

DATA  IN 

THE  SUPS 

BEGINS  A 

AND  CONT 

THIS  P 
PARAMETF 
THE  FORM 
BEGINS  A 
AND  CONT 

THIS  V 
AT  THIS 

THIS  P 
FETCH  PP 

THIS  P 
STORE  PP 

THIS  f 
OF  THF  S 
BEFORE  T 

THIS  I 
SEM  FIFI 


OINTS 
STRHC 
TRUCT 
7  A  H 
INUES 
OINTS 
R  LIS 
AL  PA 
T  A  H 
INUFS 
ARIAR 
LEVEL 
OINTS 

ncEPi.i 

OINTS 
OCEDIJ 
ONTAI 
EM  FI 
HIS  T 
S  THE 
D,  * 
* 
* 


TO  SU 
TltRETA 
URF  DA 
IGH    AD 

TP    A 

TO  A 
T  IN  S 
RAMETE 
IGH  AD 

TO  A 
LF  IS 

TO  AM 
RF. 

TO  AN 
RE. 

NS  THE 
ELD  OF 
D  WAS 

BREAK 


PSTRU 

P. 
TA 

DRESS 
LOW  A 
f-  ORMA 
TRUCT 
R  DAT 
DRESS 
LOW  A 
ADDRE 


ACCESS 


ACCESS 


THI 
AT  TH 

THI 
BEFPR 

THI 
AUXIL 
ACCFS 
VARIA 

Al)X 

THFS 

DESCR 

LABFL 

THI 
I  DENT 
USED 
IDS  A 
RELAT 

THI 
TYPE 

THI 
ACCES 
DECLA 

TYP 
DATA. 

TYP 
DATA, 

THI 
NUMPE 

Nl'M 

NUM 

THE 
STORE 


S  VARIA 
IS  DISP 
S  IS  ST 
E  THIS 
S  FIELD 
LIARY  F 
S  TYPES 
RLFS. 
ILLIARY 
F  THREE 
IPE  THF 


* 

RLF  IS 

LACEMFN 

RUCTURE 

MESS  WA 

IS  USF 
ETCH  DA 

AND  AC 

STORE 

FIELDS 

BOUNDS 


S  TA 
ICAL 
TO  S 
ND  T 
IVE 
S  FI 
OF  T 
S  FI 
S  TY 
RED 
E  DF 


BLE-S 
TP  I 
TORE 
^E  IN 
TO  TH 
ELD  H 
HE  DA 
ELD  C 
PE  NU 
ACCES 
STOR 


TACK 

OSTAC 

ALL  S 

FORMA 

FM, 

OLDS 

TA. 

PN'TAI 

MPER 

S. 

E  FOR 


CONT 
BIGT 
DFCLA 
DOWN 


ADDRE 
T 

TAB  P 
S  DEC 
D  FOR 

ta  in 

CESS 

DATA. 

OF  A 

LOOKS 
K.  I 
URSTR 
TlON 


THE  OSL 


001 

CTURE  001 

001 

001 

001 
DDRESS001 
L  001 
URETAP001 
A  001 
001 
DPRESS001 
SSED  001 
001 
001 
001 
001 
001 
001 
001 
001 


E  OF  FETCH  FOR 

S  FIELD  CONTAl 
R  PF  SUBSCRIPT 
BFP  OF  SUPSTRl' 
BEP  OF  PRPCEpU 
FOLLOWING  TYP 
D  HEREl 

MACRO  FLAG 

SUBSCRIPTED  VARl 

PRPCEDUPF  NAME 

NODE  FLAG 


NS  TH 
OF  DA 

ACCE 

ACCE 

NS  TH 
S. 

CTURE 
RE  PA 
F  FLA 


ENTS 

AB 

RFD. 

OF  THF001 

001 
001 
001 
001 
SSED  001 
001 
OlNTEROOl 
LARED.OOl 
001 
001 
001 
001 
001 
001 
001 
001 
001 
T  IS  001 
UCTURE001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 


E 
TA 

SS 

ss 


s. 

RMS 


GS  ARE001 
001 
001 
001 
001 
001 


ABLE 


0^100 
04200 
04300 
04400 
04^00 
04o00 
04700 
04600 
04900 
05000 
05100 
05?00 
05300 
05400 
05500 
05600 
05700 
05800 
05900 
06000 
06100 
06?00 
06300 
06400 
06500 
06600 
06700 
06600 
06900 
07000 
07100 
07200 
07300 

07^00 
07500 
07600 
07700 
07800 
07900 
08000 
06100 
06200 
08300 
08400 
06500 
06600 
06700 
08600 
06900 
09000 
09100 
09200 
09300 
09400 
09500 
09600 
09  7  00 
09600 
09900 
10000 
10100 
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pWN  =  A7ll, 

MlSCFLAGS=  «9»P, 

F0RMALPARM=  «9IW 

VALUEPARMs  50tl, 

HASBEFNSPEC=  51*1* 


ACCESSPRPCFDl'RF  =  52t  1, 
DUMMYHARMa      53ll, 


pIGTABPTPs 


57H3, 


STRUCTURFpTRr   70ll3> 
FORMALPARMPTRs  83U3, 

LEVEL  =         97»6, 

FETCHPROCEDUREcl03tl3, 
ST0REPR0CEDURE=ll6«l3* 
DLDSEMf IFLD=    129ll5, 


ISDEFINED= 


1 29 1 1  * 


ISBEINGDFFINFD=130|1, 
FPRWARDDFFINFD  =  131 t  It 
IDSTACKPTR=     132ll2, 
DISPLACEMENT  =  115i8» 

STRUCTPTRrFFPRF=153»13, 
FFTCHAUXPTR=    1 66  i  1 3* 


STORFAUXPTR=    179il3, 
LAPELSEGMFNT  =  153«15,  % 
LARELSTARTADPRFSS=166:13,* 
I ABELtNDADDRFS?el79ll3)j  X 
*CELL( IDENTRY, 

TYPE  =  114,       * 

t 
ACCESSTYPE=     516,       % 

% 

r 

STOREUPF=      11»4,      f 


MIS 

FOR 

CAL 

THI 
BEEN 
PROCE 

THI 

THI. 
PAPAM 
ACCFS 
TO  IN 
VARIA 
ACCFS 

THI 
TO  TH 
CURRE 
THIS 

THI 
DATA 
THE  S 
BEGIN 
AND  C 

THI 
PARAM 
THE  F 
BEGIN 
AND  C 

THI 
AT  TH 

THI 
FETCH 

THI 
STORE 

THI 
OF  TH 
BEFOR 

THI 
SEM  F 


THI 
AT  TH 

THI 
BEFCR 

THI 
AUXIL 
ACCFS 
VARIA 

AljX 

THFS 

DESCR 

LAREL 

THI 
TYPE 

THI 
ACCFS 
DECt  A 

TYP 


OW 
CFILA 
MAI  P 
L  PY 
S  FOR 
DFCLA 
DURE 
S  IS 
S  IS 
ETFR 
S  PRO 
SPF  T 
BLF  I 
S  PRO 
S  POI 
E  ID 
NT  SE 

in. 
s   POI 
IN  ST 
URSTR 
S  AT 
ONTIN 
S  POI 
ETFR 
OPMAL 
S  AT 
ONTIN 
S  VAR 
IS  LE 
S  POI 

PPOC 
S  POI 

PPOC 
S  CON 
E  SEM 
E  THI 
S  IS 
IFLD. 


S  VAR 
IS  DI 
S  IS 
E  THI 
S  FIE 
I  TARY 
S  TYP 
BLFS. 
ILLIA 
F  THR 
IRE  T 


N  FLA 

NFDUS 
APAMF 
VALUF 
MAL  P 
RFD  I 
HFADI 
AN  AC 
A  DUM 
INSER 
CFDUP 
HAT  T 
S  INC 
CFDUP 
NTS  P 
CHARA 
MANTI 

NTS  T 
RUCTll 
UCTUR 
A  HIG 
UFS  T 
NTS  T 
LIST 

PARA 
A  HK, 
UFS  T 
IABLF 
VEL 
NTS  T 
EDURE 
NTS  T 
EDURF 
TAINS 

FIEL 

S  ID 

THE  P 

* 

* 

* 

* 

IAPLF 

SPLAC 

STRUC 

S  MES 

LD  IS 

FFTC 
ES  AN 

RY  ST 
EF  FI 
HE  Bn 


G 
Fl  AG 

TER 

FORM 
ARAME 
N  THE 
NG. 
CESS 
MY  FO 
TED  I 
F  IN 
HE  AC 
LUDED 
F  CAL 
ACK  I 
CTERS 
C  FIE 

0  SUP 
PETAB 
F  DAT 
H  ADD 
0  A  L 
OAF 
IN  ST 
METFP 
H  ADD 
0  A  L 
IS  A 

n  an 

0  AN 

'the 

D  OF 

WAS  D 
REAKD 


S 

AL  PA 
TER  H 


PROCE 
RMAL 
NTO  A 
ORDER 
CESS 

IN  T 
L  . 
NTO  B 

AND 
LD  FO 


RM 
AS 


PURE 


HE 


STRUCTURE 


A 

RESS 
OW  AD 
ORMAL 
RUCTU 
DATA 
RESS 
OW  AD 
DDRES 


0  0 
00 
00 
00 
00 
0  0 
0  0 
0  0 
00 
00 
00 
00 
00 

IGTABOO 
00 

P  00 
00 
00 
00 
00 
00 

pRESSOO 
00 

PETABOO 
00 
00 

DKESSOO 


SED 


ACCESS 


ACXESS 


CONTE 
PIGTA 
ECLAR 
OWN  0 


NTS 

P 

ED. 


00 
00 
00 
00 
00 
00 
00 
00 
00 


IS  A 
FMENT 
TURFT 
S  WAS 

USED 
H  DAT 
0  ACC 

PRF  D 

ELDS 

UNDS 


F  THEOO 
00 
00 
00 
00 
DDRESSED  00 
00 
INTEROO 
ARED.00 
00 


ab  po: 

DECL/ 

FOR 
A  IN 
FSS 

ATA. 

OF  A 


S  FIE 

OF  TH 
S  FIE 
S  TYP 

RFD  A 
E  OF 


LD  HP 
E  DAT 
LD  CP 
E  NUM 
CCFSS 
STORF 


LOS  THE  OSL 

A, 

NTAlN! 
PER  0! 


IS  THE 
IF  DATi 


FOR  ACCESS 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


191 


Ft'TCHTYPE>  15:4/ 

numbrofsurs=  i 9 i e» 

NljMpRSUBSTRUCT  =  27:8/ 

NUMRROFpARMSr  35:8. 

TYPFFLAGS=  43:5/ 

MACROS  43:1/ 

SUBSCRIPTED*  41H> 

PROCEDURE*  45:1/ 

NOPE*  46:1* 

OWN=  47  I  I  * 

MlSCFLAGS=  49:6/ 

FORMALPARM=  49:1/ 

VALUFPARWr  50:1* 

MASBEENSPFC=  5111* 


ACCESSPRncEDl'RE  =  52:l * 
DUMMYPARM=      53  l  1  # 


BIGTABPTR= 


57113/ 


STRUCTURFPTR=   70:13/ 
FORMALPARMPTR=  83:13/ 

LEVEL  =        97:6/ 

FETCHPR0CFDURE=103jl3/ 
ST0REPR0CE"DUPE  =  H6:13* 
PLDSEMflELD=    129:15/ 


TSDEFINEDs 


129:) / 


ISPEIN(,DFFINFD=130:1/ 
F0RWARUDFnNF0  =  131  :  1  / 
IDSTACKPTR=  132:12/ 

DISPLACEMENT    =    145:8/ 

STRUCTPTRREFDRF=153:13/ 
FETCHAUXPTRs    166:13/ 


DATA.  00 

TYPE  OF  FFTCH  FOR  ACCESS  00 

DATA.  00 

THIS  FIELD  CONTAINS  THE  00 

NUMBER  OF  SURSCRIPTS.  00 

NUMBFR  OF  SUPSTRUCTURES.  00 

NliMBFR  OF  PROCEDURE  PARMS.  00 
THE  FOLLOWING  TYPE  FLAGS  AREOO 

STORED  FERE:  00 


MI 

FO 

CA 

TH 
BEEN 
PROC 

TH 

TH 
PARA 
ACCF 
TO  I 
VARI 
ACCE 

TH 
TO  T 
CURR 
THIS 

TH 
DATA 
THF 
BEGI 
AND 

TH 
PARA 
THE 
BEGI 
AND 

TH 
AT  T 

TH 
FETC 

TH 
STOR 

TH 
OF  T 
BEFO 

TH 
SEM 


TH 
AT  T 

TH 
BEFO 

TH 
AUX1 


IS  FIELD  CO 
ER  OF  SURSC 
MBFR  OF  SUP 
MRFR  OF  PRO 
E  FOLLOWING 
ED  HERE: 

MACRO  F 

SUJBSCRT 

PROCFDl! 

NODF  Fl. 

OWN  FLA 

SCrLLANFOUS 

RMAL  PARAMF 

LL  PY  VALUE 

IS  FORMAL  P 

DFCLARFD  1 

EDURE  HEADI 

IS  IS  AM  AC 

IS  IS  A  DU^ 

METFR  INSER 

SS  PROCEDUP 

NSRE  THAT  T 

ABLE  IS  INC 

SS  PROCFDUR 

IS  POINTS  B 

HE  ID  CHARA 

ENT  SEMANTI 

ID. 
IS  POINTS  T 
IN  STRI.ICTH 
SUPSTRUCTUR 
NS  AT  A  HIG 
CONTINUES  T 
IS  POINTS  T 
METFR  LIST 
FORMAL  PARA 
NS  AT  A  HIG 
CONTINUFS  T 
IS  VARIARLE 
HIS  LEVEL 
IS  POINTS  T 
H  PROCEDURE 
IS  POINTS  T 
E  PROCEDURE 
IS  CONTAINS 
HE  SEM  FIEL 
RE  THIS  ID 
IS  IS  THE  P 
EI E I D  .   * 
* 
* 
* 
IS  VARIAPLF 
HIS  DISPLAC 
IS  IS  STRUC 
RE  THIS  MES 
IS  FIELD  IS 
LLTARY  FETC 


LAG 

PTEC  VARI 

RE  NAME 

AG 

G 

FLAGS 
TER 

FORMAL  P 
ARAMETER 
N  THE 
NG. 

CESS  PROC 
MY  FORMAL 
TED  INTO 
E  IN  ORDE 
HE  ACCESS 
LUDED  IN 
F  CALL. 
ACK  into 

CTERS  AND 
C  EIELD  F 

0  SUF-STRU 
RETAP. 
F  DATA 
H  ADDRtSS 
0  A  LOW  A 
0  A  FORMA 
IN  STRUCT 
METLR  DAT 
H  ADDRESS 
0  A  LOW  A 
IS  ADDRE 

0  AN  ACCE 

0  AN  ACCE 

• 

THE  CONT 
n  OF  PIGT 
WAS  DECLA 
REAKDOWN 


IS  ADDRE 
FMENT 
TURETAR  P 
S  WAS  DEC 

USED  FOR 
H  DATA  IN 


APLE 


00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BIGTABOC 

00 

OP     00 

00 

CTuRE  00 

00 

00 

00 

DDkESSOO 

L      00 

UPETABOO 

A      00 

00 

DrRESSOO 


ARM. 
HAS 

EDURE 

AN 
R 

THE 


SSED 


SS 
SS 

ENTS 

AP 

RFD. 

OF 


00 
00 
00 
00 
00 
00 
00 
00 
00 


THEOO 
00 
00 
00 
00 
SSED  00 
00 

ointeroo 

LARED.00 
00 
00 


U6300 
1  16400 
1  16500 
1  16600 
116700 
116600 
116900 
U7000 
U71C0 
H7200 
117300 
H7400 
117500 
117600 
117700 
H7800 
117900 
116000 
116100 
1 16200 
1 1 6300 
1 16400 
116500 
118600 
118700 
H8600 
H6900 
119000 
U9100 
119200 
U9300 
119400 
H9500 
119600 
119700 
119600 
119900 
120000 
120100 
120200 
120300 
120400 
120500 
120600 
120700 
120600 
120900 
121000 
1?H00 
121200 
121300 
121400 
121500 
121600 
121700 
121600 
121900 
122000 
122100 
122200 
122300 
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STOREAUXPTR* 
L  ARFLStGMEK'T 
LARFLSTARTADr 
LABELENDADDRF 
$TAFLE(   LFAVE$TACK*  100.*  M 


iADDCOU  BlGTAp* 

ISPEFJNED  = 


179113 

r  153115 
RFSS=166 
S$b179I1 
ARK=1 ll* 


111* 

ISPEINGDEFINED=2ll* 


IDSTACKPTR  =    4H2* 


FORWAR0DFFlNFD*3ll» 

IDLENGTH  =      16 I6J 

MSTACK* 

0SL2SEMFTELD  =  1 t  35* 

NODE  =  111* 

STRUCTUREPTR  =  2H3* 


NUMBRSUBSTRUC 
PRDCEDUREPTRI 


t 

% 
>    % 
*   % 
t  13*? 

3);  * 

ADDRFS 
9! 
% 
% 
* 

f 

% 
% 
% 

% 

% 
t 
% 
% 
f 
% 
% 
t 
X 
% 
? 
t 
* 

s 

% 
% 
% 
r 
t 
f 


T=l5tB* 
SlNTOIDSTACK 


PPOCEOURFPTR  =  24112) 
tSTACKC   IpCOUK'TERSTACK*      32; 

SIPUCTliPFPARMSTACK*  160; 
PPPCEPURFIDSTACK*    32j 


ACCFS 

VARIA 

AUX 

THFS 

DESCR 

LABEL 

S  =  2t« 

LEA 

ADORE 

THE  E 

STATE 

THI 
DECLA 
ALSO 

THI 
CURRE 
RE-pE 
OECLA 
HEAD. 
OCCUR 

THI 
POINT 
IN  ID 
TYPF 
ID. 
OCCUR 

THI 
PROCE 
ONE. 

THI 
OF  TH 

THI 
SEMAN 

IF 
SCANN 

THI 

struc 

SCANN 

LEN 

23  1 1 

IF 

POINT 
IDSTA 
STRUC 
FIELD 

POI 
IF"  LA 
PROCE 

THI 
COUNT 
IDENT 
OFF  0 
CLOSE 

THI 
PARAM 
OECLA 

AS 
TIONS 
POINT 


S  TYP 
BIFS. 
IL1  IA 

E  THR 
IPF  T 

6)1 
VFSTA 
SSFS 
NO  OF 
MFNT, 

S  ID 
RFP. 
OCCUR 
S  ID 
NT  PL 
CI  ARE 
RATIO 
(NO 
S  IN 
S  FIE 
ER  IN 
STACK 
AMD  P 
(NOTE 
S  IN 
S  IS 
DUPE 


FS  AND  ACCFSS 
ATA, 
OF  A 


RY 
FE 
HF 


ST 
FI 
BO 


ORE  0/ 

FLDS 

UNQS 


CK  SA 

FOP  A 

A  LA 


VES  P 

PLAN 

PELLE 


IS 
ID 


S  IS 

TTCS 
THIS 
PD  IS 
S  FlL 
Tl'FET 
ED  WA 
GTH  0 
* 

PPOCE 
S  TO 
CK  RA 
TURET 

TS  S 
NTFR 
ST  ID 
DUPE. 
S  STA 
FRS  T 
IFIER 
F  THE 

OF  T 
S  STA 
FTFRS 
RATIO 
NFSTE 

ARE 
ER  TO 


IS  cu 

(NOT 
S  IN 
IS  DF 
OCK  A 
D  BY 
N  IN 
TF! 
I  0  S  T  A 
LD  CO 
TO  TH 

THAT 
APAMF 
t  TH 
IDSTA 
A  FOR 
IF  TH 

THE  L 

IN  TH 

THE  0 
FIELD 
BIT  T 
OF  C 
LP  PO 
AP  IF 
S  A  S 
F  ABO 

DUREP 
A  PRO 

THFR 
AP*  T 
FT  TO 
TO  PR 
SCAN 

CK  CO 
HAT  T 
S  HAV 

IP  S 
HF  CU 
CK  HP 

PURI 
N  SCA 
D  PRO 
ENfOH 

THE 


PRFNT 
El   T 
IDSTA 
CLARfc 
NO  MA 
ANOTH 
THE  S 
THIS 
CK.) 
NTA^ 
E  CUR 
DEFI 
TERS 
IS  FI 
CK.) 
WARP 
TS  FI 


RANCH 
T  AT 
0 


LY 

HIS  F 
CK.) 
P  IN 
Y  NOT 
FP 

AME  R 
FIELD 

S  A 
RENT 
NES  T 
OF  TH 
ELD  A 

PEFIN 
ELD  I 


00 
00 
00 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

IELD  00 
00 

THE   00 

BE   00 

00 

LOCK  00 

ALSOOO 

00 

00 

ENTRYOO 

HE    00 


IS 

I.  SO 


ED 

S  A 


FNGTH 

IS  BEGTAB 


SL2 

IN  ¥ 
S  ON* 
LASS 
INTS 

THE 
TRUCT 
VE  VE 

TR  PF 
CEPUR 
THAN 
HEN  T 

ONE 
OCEDU 
NED  Vi 

NTAlN 
FLL  H 
F  TO 
TACK 
PRENT 
LDS  P 
NG  A 
M. 

CEpUR 
NTFKE 
OLD  P 


STACK 

THE 
MODE. 
INTO 
ID 

URE. 
CTPR. 

LOW 
E  IN 

HIS 
(1). 

RE 
AS  A 

S  ID 
nw  HA 
PE  PO 
AT  TH 
BLOC 
USHED 
STRUC 

F  DFC 
P*  TH 
ROCED 


ID 


00 
00 
00 
00 
00 
00 
00 

cell, oo 
oo 
oo 

00 

00 

0  0 

00 

00 

00 

0  0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

NY    0  0 

PPED  00 

F     00 

K.    00 

DOWNOO 

TuRE  00 

00 

I ARA-00 

E     00 

URE   00 


THE 
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y  pe  i 

f  THI 

*  THE 

»  RET 

y  pro 

BOPLEAN'FORMALSWlTCHSTACK*  32;x  T 

?  THE 

y  FOR 

y  swi 

96;      y  c 

y  cup 

y  OTH 

96;        y  H 

y  ADD 

96;        y  H 

t.  FOR 

96;      y  h 

y  FDR 

32;       *  T 

y  NUM 

y  to 

256;       %  T 

y  ADD 

y  cod 

96);      y  w 

y  ACT 

y  STA 

y  dow 

y  and 

y  cou 

y  ids 

DLf IKE     PRINTID  = 

PO!NTfR(SrPD(PlGTAB/fPPD( 
FOR  $OPP(BlGTAB>SOPDrMSTA 

y  t 

y  CHA 

y  big 

y  in 


SUPSCRIPTSTACK, 
610CK$TACK> 

stmtifstack, 

EyPRSMFSTACK* 

lplcolintfrstack* 

casestack* 

actualparmstack* 


NG  OFF  IN 
S  STACK. 

POINTER 
URN  STAT 
PERLY  PR 
HIS  STAC 

STATUS 
NALPARAN 
TCP 

PNTMNS 
RENTNUMP 
ER  DATA. 
PLDS  SEG 
PESS  DAT 
OLDS  IE 

IFSTATE 
PLDS  IE 

IF  EXPR 
HIS  STAC 
PER  OE  L 
BE  STORE 
HIS  STAC 
PESSES  E 
E. 

HEN  SCAN 
UAL  PAPA 
CK  CPNTA 
N  VALUES 

ACTUAL 
NTERS  AN 
TACK  ARE 

MSTACK,£ 
CK* STOP* 
HIS  PEEI 
PACTF  RS 
TAB  PY  T 
THE  fop 


FD  IS  PUSHED  INTO 

THE  PURPOSE  OF 
S  IS  TO  ALLOW 
FMFNTS  If;  PE 
PCESSED. 

K  IS  USED  TO  STORE 
PE  THE  SCANNING- 
ETEPDECI  ARATIOMS 

PUSHFD  DOWN  VALUES 
EROESUPS  AND 

!>'ENT  AND 

A 

INFORMATION 

M  F  N  T  S 

INFORMATION 

ESSIONS 

K  HOLDS  THE 

EFT  PART  ITEMS 

D  INTO. 

K  HOLDS  F"  RANCH 

PR  CASE  OBJECT 

NING 

METFPS,  THIS 

IMS  THE  PUSHED 

OF  THE  FORMAL 
PARAMETER 
n  POINTERS. 

STORED  HERE. 

TOP»ENTRY)+l*SALL) 
FNTRY)»irLENGJH)  * 
NE  PRINTS  THE  ID 
POINTED  TO  IN 
HE  ENTRY  FIELD 
OF  MSTACK, 


PROCE 
VALUE 
BOC'LE 
BEGIN 


dupe  dumpentryc id#entry* indfnt); 

ip»entry, jndfnt; 
an  id;  integer  entry* i npent j 

INTEGFP  I»NPL»NDL*N*T; 

ALPHA  ARRAY  A[0»89]J 

FPINTFP  P*PA> 

BL ANKMFSOUT; 

PA  *  PPINTEh(A); 

REPLACE  P?PNES0UT  +  (I<-MlN(5xlNlDFNT>95))  PY 

if  id  then  replacf  p»r  py  "idstack  •« 

else  replace  p«p  py  "struc turf t a r  "; 

rfplace  p  by  "entry  "  >  f  ^i  t  p  y  fpp  4  digits' 
"  lfvel  "*  inpent  fpr  2  digits; 

writepfsdut; 

I  <-  l  +  b) 

NPL  «-  FNTlER((l32-D/20); 

p  <■  pa; 

IE  (T  ♦  XPPD(IDENTRY*TYPE))  *    0 
THEN 


==r>  «; 


00l2b500 
0012^600 
00128700 
001 2b800 
00l2«900 
001^9000 
00129100 
00129200 
001?9300 
00129400 
00129500 
00129600 
00)29700 
00129600 
00129900 
00130000 
00130100 
00130200 
001 30300 
00130400 
00130500 

00130600 
00130700 
00130600 
00130900 
00131000 
00131100 
00131200 
00131300 
00131400 
00131500 
00200100 
)00200200 
;Q0200300 
00200400 
002005P0 
00200600 
00200700 
00300100 
00300200 
00300300 
00300400 
00300500 
00300600 
00300700 
00300b00 
00300900 
00301000 
00301100 
00301200 
00301300 
00301400 
00301500 
00301600 
00301700 
00301^00 
00301900 
00302000 
00302100 
00302200 
00302300 


19h 


BEGIN 


IF  T 

thfn 

FLSF 

PEGU' 


13 

PLACE  P«P 


BY  "TYPE ",T  FOR  2  DIGITS 


DE 
RP 
CA 
FE 


FIN 
P  " 
SF 
GIN 


f    ppPrRFPLACF  P»P  BY  #J 

TYPE "J 

T  PF 

REPLACE  PtP-2  By  "UNpECL ARED"! 

RPF  ".INTEGER"* 

RPP  ".BODIFAN"; 

RPP  -..STRING"; 

RPP  '•. POINTER"* 

RPP  "...EVENT"; 

RPP  ".PPDCFSS"; 

RPP  ".PATTrRN"/ 

REPLACE  PlP-i  BY 

RPP  "..ACCESS"* 

RPP  ",...COPF"; 

RPP  "....FILE"; 

RPP  "...LAPEL"* 

REPLACE  PtP-1  BY 


"STRUCTURE"; 


"ACCESSVAR") 


EN 

FND 

end; 

IF  (T  «■  SPPD 

thfn  rfplace 
If  ct  «■  sopu 
thfn  replace 
if  ct  *  sppd 
Then  rfplace 
if  ct  *■  j>opu 
then  replace 

IF  (T  «-  SOPD 
THEN  REPLACE 
IF  (T  *■  SDPD 
THFN  REPLACE 
IF  BOPI.EANC* 
THFN  RFPLACE 
IF  bOplEANi($ 
THFN  RFPLACE 
IF  60fHEAM(l 
THFN  REPLACE 
IF  FOpl  P  AK(S 
THFN  REPLACE 
IF  bOplFAN($ 
THEN  RFFLACt 
IF  bOpLFANCi 
THFN  RFPLACE 
IF  POOLFAN(i> 
THFN  RFPLACE 
IF  BOPLFAN(i 
THFN    RFPLACE 

if  (T  ♦  sppd 

THFN  RFPLACE 

if  (t  «■  xnPii 

THFN  PFPLACE 
IF  (T  «•  *PPD 
THFN  REPLACt 
IF  (T  <-  tOPD 


( TDFNTRY,ACCESSTYPF))  *    0 

PtP  PY  "ACCESSTYPF »VT  FPR  2  DIGITS; 

( TDENTRYjSTPRFTYPE)  )  *    0 

PtP  PY  "STPRFTYPE »,j    FOR  2  DIGITS; 

( IDENTRY/FFTCHTYPE))  *    0 

P:P  PY  "FFTCHTYPF «,T  FOR  2  PIGITS; 

(  TDENTRY,MipPPOFSUPS))  1    0 

P:P  pY  "NUMRPOESUpS....",T  FOR  3  DIGITS; 
C  IPFNTRYjNUK'BRSI'BSTRUCT)  )  1    0 

PtP  pY  "NUMRPSURSTRUCT.">T  FOR  3  DIGITS; 
(  TDENTRY,NUPBROFPARMS)  )  #  0  -r 

PjP  FY  "NUKBROFPARMS, . ,",T  FOR  3  DIGITS; 
OPDCIPENTRY, MACRO.)) 

PjP  PY  "MACRO TRUF"; 

OPD ( I DENTRYj SUBSCRIPTED)) 

PlP  PY  "SUBSCRIPTED. ..TRUE"* 
PPD( IPFNTRY* PROCEDURE)) 

PlP  PY  "PROCEDURE TRUF"; 

OPD( IDENTRY^NODE)) 

PtP  PY  "NODE TRUE"; 

OPD(IPEN'TPY#FORMALPARM)) 

PlP  PY  "FORMALPARM.  ,  ...TRUF"; 
DPD(IDEMTF(Y,VALUEPARM)) 

PtP  PY  "VAI.UFPARH TRUE"/ 

DPD(lrF^RY>HASPEENSPEC)) 

P:P  PY  "HASRFFNSPFC  .  .TRUE-; 
OPD(IPEN'TRY>OWN)) 

PjP  PY  "OWN TRUF"; 

(  IDFNTRY  .BIf.TARPTR)  )  *    C 

PtP  PY  "PlGTAPPTR "  >  T  FOR  4  DIGITS; 

( IPFNTRVjSTRUCTURFPTR)  )  *    0 

PlP  PY  "STRUCTUREPTR.  ,">T  FOR  /(  DIGITS; 
CIPFNTRY^FORMALPARK'PTR))  4    0 

PtP  PY  "F ORMALPARMPTR."*T  FOR  H    DIGITS; 
(  IDFNTRY»FF T CHPROCFPURE ) )  *    0 


00302 
0030? 
0030? 
0030? 
0030? 
00302 
00303 
00303 
00303 
00303 
00303 
00303 
00303 
00303 
00303 
00303 
00304 
00304 
00304 
00304 
00304 
00304 
00304 
00304 
00304 
00304 
00305 
00305 
00305 
00305 
00305 
00305 
00305 
00305 
00305 
00305 
00306 
00306 
00306 
00306 
00306 
00306 
00306 
00306 
00306 
00306 
00307 
00307 
00307 
00307 
00307 
00307 
00307 
00307 
00  30  7 
00307 
00308 
00306 
00300 
00306 
00306 


400 
500 
600 
700 
«00 

900 

000 
I  00 
?P0 
300 
<|00 
500 
600 
700 

eoo 

900 

ooo 

100 
?00 
300 
400 
500 
600 
700 
600 
900 
UOO 
100 
200 
300 
400 
500 
600 
700 
600 
900 
000 
100 
?00 
300 
400 
500 
600 
700 
600 
900 
000 
100 
^00 
300 
400 
500 
f.00 
700 
600 
900 
000 
100 
?00 
300 
400 
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TH 

IF 

TH 

IF 

TH 

IF 

TH 

IF 

TH 

IF 

TH 

IF 

TH 

IF 

TH 

IF 

TH 

N 

IF 

TH 

BF 


En 
El 
BF 


FN  PF 

(T  * 
FN  pE 

(T  «■ 
FN  PF 

(T  * 
FN  PF 

BOOt. 
FN  RE 

bODl 
FN  RE 

BOOL 
FN  PF 

(T  «■ 
FN  RF 

(T  «- 
FN  PE 
«•  DFL 

N  = 
FN 
GIN 
PL 
PF 
WR 
D 

SE 
GIN 
T 

WH 
BE 


PLACE  P«P  PY  "FFTCHPROCM.-R.  ."*T  FOR  4  DIGITS; 

SOPDC  IDENTfmSTr'RFPPOCrniRF))  4    0 
PLACE  PJP  PY  "STPPROCEDHPF.  .  "  >  T  FOR  4  DIGITS; 

ICIPD(IDENTRY»FETCHAIIXPTR))  4    0 
PLACE  P:P  FY  "FFTCHAHXPTR . . . ">  T  FOR  4  DTGITSI 

JOPD( IDENTRv»STnRFAUXPTP)  )  4    0 
PLACE  PtP  PY  "STGRFAUXPTR, ..",  T  FOP  4  DIGITS* 
FAN(SOPP(  IPFNTRY,ISDFFlNED)) 

PLACE  P:P  PY  "ISPEFIK'ED tRUF"J ' 

FAN(3>0PP(IpE>'TRY,ISREINCDEFHED)) 
PLACE  PtP  PY  "ISPEINCDEF. . e .TRUE"; 
EANUOPDC  lPENTRY,FORWARprEFlNED)) 
PLACE  PtP  PY  "FflRWARDDEF.  .  .  .  T  R  LI  F  ♦*  > 

SOPD( TDENTRY, I DSTAC^PTR  )  )  4    0 
PLACE  PtP  PY  "IDSTACKPTR. . . ,»>T  FOR  4  DIGITS; 

$OPD( !DFNTRY,STPUCTPTRPFFORF))    4    0 
PLACE    PtP    FY    ••STRllCTPTRPFnR.">T    FOR    4    DIGITS; 

ta(pa#p)/18; 

0 


ankmesout; 

place  pmesout+i  by  "mo  fntrlfs"; 

itemesout 


*  o; 

TLF  T  <  N  DO 
GIN 

BLANKHES 

P  «■  PMES 

NOL  «■  0; 

^HILE  NOL<NPL  ANO  T<N  DO 

BEGIN 

REP 

NOl 

T  f 

end; 
writemes 


,out; 
.oht  +  i; 


LACE  PtP  PY  PA+18xT  FOR  lfl>*   "; 

<-  nol  +  i; 

t+i;  * 

;out 


em 

END  DUM 


FN 

r 

PENTR 


n 


y; 


PROCEDURE    pUMPBlGTAR(N, INDENT); VALUF    N»INDENT;     INTEGER    NjINDENT; 
BEGIN 

intfgfp  i>j; 
Bi ankmfsput; 

RFPLACE  PMESnUT  +  (T«-^'I^(5xiNPEMT»100)>  PY  "  =  =  =  >  BlGTAB  "> 
M  FOR  4  DIGITS* 

"  IDs"*  POINTER(JOPD(PIGTAP#N+l#J ALL)) 
FOR  MIN($0PDCBIGTAF*N»TDLFNGTH)M12-I); 

WRITEHFSOUT; 

i  «■  1  +  5; 

IF    BODL  FAN  (SOPPCBJGT  AP»NMSDEF  I  NED)) 

THFN 

BEGIN 

pi.  ankmfsout; 

pfplace  pmfsput  +  i  py  " i sdff i  ned"; 


00306500 
00306600 
00306700 
0030bb00 
00306900 
00309000 
00309100 
00309?00 
00309300 
00309400 
00309500 
00309600 
00309700 
00309600 
00309900 
00310000 
00310100 
00310200 
00310300 
00310400 
00310500 
00310600 
00310700 
00310600 
00310900 
00311000 
00311100 
00311200 
00311300 
00311400 
00311500 
00311600 
00311700 
00311800 
00311900 
00312000 
00312100 
00312200 
00312300 
00312400 
00312500 
00312600 
00312700 
00312600 
00312900 
00313000 
0031 3100 
003J3200 
00313300 
0031 3400 
0031 3500 
00313600 
00313700 
00313600 
00313900 
00314000 
00314100 
00314200 
00314300 
00314400 
0031 4500 
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writemesout 

enp; 

IF  l'0PLEAN(t0PD(BlGTAP*N»lSPElN6DEFlNEP)> 

ThTN 

BEGIN 

pLANKMESPUTi 

REPLACE  PMFSpUT+I  PY  n I SBf I NGDf F I NF D" J 

WRITEMESPUT 

enp; 

IF  t'npLEAN(SOPD(BiGTAB#N»FORWAPDDEFlNEn)) 

TuFN 

BEGIN 

pi ankmesput; 

replace  phe'sput  +  i  by  "forwardoef  info") 

writemesout 

ENPJ 

IF     (J    «■    SOPD(PlGTAB*NMDSTACKPTR))    #    o 

THF  n 

BEGIN 

plankmesput; 

rfplace  pmestut  +  i  by  " idstackptr=m »  j  for  4  d i g i t s i 

v/ritemesout 

ENPJ 
END  DUMPBIGTABJ 


PRUCEDU 
VALUE  I 
BOOLEAN 


INTEGER 

BEGIN 

IN 
LA 
IF 
IE 

NS 

SP 

KR 

PP 

IP 

J 

bT 

pu 
If 

IF 

Th 
BE 


RE  pUMPTAbf 

p, entry, tka 

ID* 

traceparm* 

tracesem, 

tpacebig; 

ENTRY* 
INDENT? 


TEGER 

PEL  AW 

ENTRY 

ID  TH 

EL 

5PP 

SOP 

*OP 

?pp 
SOP 
«-  MIN( 
<-  JPP 
V  E  E  N  T  R 
TRACE 
TRACE 
EN 
GIN 
IP 
THE 
REG 


I*J'N 

ay; 
=  o 

EN  SE 
SE  5»E 
D(  IDE 

DUDE 
DUDE 
DUDE 
DUDE 
5xlND 
DCIDE 
Y(ID» 
RIG  T 
PARH 


ID>ENTRY'TPACEPARM>TRAcESFMUNDENTrTRACEBlG>J 

CePARM#TRACESER»IWDeNT# TPACEBIG) 

%    TRUE  IE  IDSTACK  -  OTHFRWISE  STRUCTL'RETAB 
%    TRUE  IF  EOPMAiS  Amp  SUPSTRUCT  TO  pE  DUMPED 

*  true  if  plpsemfield  tp  be  traced 
%   true  ie  pigtar  to  re  pumped 
%   which  entry  tp  dump 
%  [  evel  of  recursion 

s*sp>np*ppup>rt; 

then  gp  away; 

nterudentryfsallpeudstack'entry)) 
nterc lpentry»sallne(stpucturetab#entry)); 

NTRY#NUMBRSUPSTRUCT); 

ntry,structureptr); 
ntry*numbrofparmS); 
ntpy*eprmal  parmptr); 
ntrympstackptr)) 

E  N  T  >  9  5  )  ♦  5  ; 

ntpy,bigtabptr); 

fntry» indent); 

HFN  dumpbigtab(bt#indent+i )) 


NS 

N 

IN 


t    0 


blankmesout; 
replace  pmespl't  +  j  ry 

»*$**$$$*   substructures 

writemesout) 

for  i  *  1  step  1  until  ns  do 


**#  #####•<; 


003] 

A60C 

003] 

470C 

003] 

480C 

003] 

490C 

003] 

500C 

003] 

blOC 

003] 

520C 

003] 

530C 

003] 

540C 

003] 

550C 

003] 

560C 

003] 

570C 

003] 

5801 

00-3] 

590C 

003] 

600C 

003] 

1610C 

003] 

1620C 

003] 

1630C 

003] 

1640C 

003] 

650C 

003] 

[660C 

003] 

1670C 

003 

1680C 

003] 

[690C 

003 

I  700C 

003 

I  7  IOC 

003 

L  720C 

003] 

1730C 

003« 

[7H0C 

003] 

1750C 

003< 

760C 

003. 

1770C 

003] 

7fa0C 

003] 

1790C 

003] 

18000 

003] 

[810C 

003] 

[6?0C 

003] 

[830C 

003] 

eooo 

003] 

8500 

003] 

18600 

003] 

18700 

003] 

6800 

003] 

[8900 

003] 

9000 

003] 

9100 

003] 

9200 

003] 

9300 

003] 

9400 

003] 

9500 

003] 

9600 

003] 

9700 

003] 

9800 

003] 

9900 

003; 

'0000 

003; 

» 0  1  0  0 

003; 

'0200 

003; 

'0300 

003; 

'0400 

003; 

'0500 

003; 

'0600 
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FND) 

if  n 

THEN 
PEGI 


END 
IF  1 

THEN 
BFGI 


AWA 
END 


END 
Yt 
DUMPT 


DUMPTAB(FALSE/SP*1-I» 

TPACEPARM»TRACESEMMNDENT<M#TRACFBIG) 

P    #    0 

N 

BLANKMESOUTJ 
REPLACE  PMFSOUT+J  BY 

••####**  FORMAL  PARAMETERS  ######•'! 
WRITEMESOUTJ 

FOR  I  «■  1  STEP  1  UNTIL  NP  DO 
DUMPTAB(FALSF/PP*1-I» 

TRACEPARM#tRACESEM»INDENT+1#TRACFPIG) 

fnd; 

traceparmj 
racfsem  and  ip#0 

N 

blankmesputj 
replace  pmfsout*j  by 

"#######11  up  levfl  id  #########'•; 

writemesout; 
dumptab(tpue,ip#tracfparm,tracfsf>-',lndfnt  +  l  ,tracepig> 

TRACESEfo) 

ap; 


PROCEDURE  DUMPMSTACK(N);  VALUE  NJ  INTEGER  NJ 
BEGIN 

POINTFR  Pi 

integer  ii 

define  comma=tf  p#pmesout*5  thfn  rfplacf  p«p  by  ",  w#; 

bi.ankmesouti 

replace  pmesout  by  "■■■>  mstack  "#  n  fop  4  digits) 

writfmesduti 

blankmesout; 

p  «•  pmfs0ut  +  5i 

if  bool fan(sopdtm?tack#n#nodf)) 

thfn  replace  ptp  py  "node") 

if  boplfan(sopd(mstack»n#procedureptrislntoidstack)) 

THEN 
BEGIN 

COMMA! 

REPLACE  PtP  BY  "PROCFDUREPTR I S I NTO IDST ACK" 
END! 

IF  (I  <•  SOPD(MSTACK»N#PROCEDURFPTR))  f    0 
THFN 
BEGIN 

COMMA) 

pfplace  pip  by  "PROcfdureptr=",  i  for  4  digits 

END  I 

IF  (I  ♦  *OPD(MSTACK»N#ENTRY))  #  0 

THEN 

BFGIN 

COMMAI 

RFPLACE  PtP  PY  "ENTRY="#I  FOR  4  DIGITSI 
END! 

IF  (I  *  SOPD(MSTACK»N#STRUCTllREPTR))  4    0 
THFN 


00320700 
00320800 
00320900 
00321000 
00321100 
00321200 
00321300 
00321400 
00321500 
00321600 
00321700 
00321600 
00321900 
00322000 
00322100 
00322200 
00322300 
00322400 
00322500 
00322600 
00322700 
00322600 
00322900 
00323000 
00323100 
00323200 
00323300 
00323400 
00323500 
00323600 
00323700 
00323600 
00323900 
0032^000 
00324100 
00324200 
00324300 
00324400 
00324500 
00324600 
00324700 
00324800 
00324900 
00325000 
00325100 
00325200 
00325300 
00325400 
00325500 
00325600 
00325700 
00325600 
00325900 
00326000 
00326100 
00326200 
00326300 
00326400 
00326500 
00326600 
00326700 
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BEGIN 

comma; 

REPLACE  P«P  PY  "STPUCTUREPTRs",   I  FOR  4  DIGITS) 

end; 

if  (i  *  sopd(m$tack>n>nl)mbrsub$truct)>  #  0 

THEN 
BFGIN 

comma; 

replace  p:p  py  "numbrsubstruct=">  i  for  3  digits 
end; 

writemesout; 
end  dumpmstack; 


PROCFDliRE  PRINTSTACK(A,B);  VALUE  B*  ALPHA  ARRAY  ACOi;  INTEGER  P; 
BEGIN 

integer  i; 

FOPMAT  F(XlO#T10); 

FOP  I  *  B-l  STEP  -1  UNTIL  0  DO 

WRITE(LINF>F/A[ J]) j 

end; 


PROCEDURE  PRINTBSTACKCA#R);  VALUE  B;pOOLFAN  ARRAY  A [0  ]; INTEGER  BJ 
BEGIN 

integer  i; 
format  e(x15*l5); 
fpr  i  «■  p-l  step  -1  until  0  do 
write(line>f>aci]); 
end; 


BOOLEAN  PROCEDURE  LANGUAGE 
VALUE  PARM;  ALPHA  PARMj 

COMMENT    ThIS  PRPCED 
BEING  SCANNED.   OTHERWISE 
CARDS  APE  AS  FOLLOWS! 

PDUMP  tlDSTACK/ST 
tALL/N 
IDSTAC 
IF  TRA 
INDKA 
IF  TRA 
CAUSE 
PARM  = 
SEM  = 
BIGTAB 
IF  NO 
ARE  AS 
ONE  CA 
STACK 
MSTACK  [TDP 
THF  TO 
OR  THE 
INTO  J 
ARE  SP 
IDSTAC 
TRACF 


CONTPOLCAPD(PARM); 

URE  IS  TRUE  IF  AN 
IT  IS  FALSE.   THE 


0SL2  CONTROL  CARD  IS 
LEGITIMATE  0SL2  CONT 


RUCTURFTAR]  [ TP ACF [ CPARM/SEM/p IGTAB J *& 

/TOP  Nl 

K  OR  STRUCTURETAB  IS  DuMPED, 

CE  IS  NOT  PRESFNT*  THEN  ONLY  THE 

TED  FNTRIFS  ARE  DUMPED. 

CE  IS  ON*  THEN  THF  TRACE  PARAMETERS 

A  TRACF  ON  THE  INDICATFD  POINTERS 

>  STPUCTUREPTR  t.    FORMAL  PARMPTR 

>  OLD  SEMFIELD 
=>  PIGTAPPTR 

TRACE  PARAMETER  IS  ENTERED*  THEN  ALL 
SUMED, 

n  dump  all  of  the  entries  in  a 

or  just  entry  n  or  the  top  n  entries. 

n/tpace  rpigtab/parm/sfm/allh 
p  n  elements  of  mstack  arf  dllmpfd 

top  elemtmt  is  dumped  with  a  trace 
ust  pigtap  or  if  parm  or  sem  or  all 
fcifiep,  then  the  tracf  continues  into 
k  or  structuretab  with  thf  indicated 
parameters.  ntte  that  the  use  of 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
ROLOO 
00 

moo 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


326600 
326900 
327000 
327100 
327200 
327300 
327400 
327500 
327600 
327700 
327600 
327900 
328000 
326100 
328200 
328300 
328000 
326500 
328600 
328700 
328600 
326900 
329000 
329100 
329200 
329300 
329000 
329500 
329600 
329700 
329600 
329900 
330000 
330100 
330200 
330300 
330000 
330500 
330b00 
330700 
330800 
330900 
331000 
331100 
331200 
331300 
331^00 
331500 
331600 
331700 
331800 
331900 
332000 
332100 
332200 
332300 
332000 
332500 
332600 
332700 
332800 
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BIGTAB  HERE  IS  UNIQUE.   THE  ONLY  WAY  TO  TUPM 
ON  A  BIGTAP  TRAf.F  PARAMFTER  WHEN  A  TRACE 
PRTCFFDS  INTO  IPSTACK  OR  STRUCTURETAp  IS  TO 
USF  THE  TRACF  PARAMFTER  ALL  WHICH  TURNS  ON 
ALL  OF  THE  TRACF  PARAMETERS. 

IDCOUNTFRSTACK 

STRUKTUPEPARMSTACK 

PROCFDUPEIDSTACK 

SUBStRIPTSTACK 

ACTUALPARMSTACK 

FORMALSWITCHSTACK 

STATUS 


THIS  DUMPS  ALL  OF  THE 
SINGLE  VARIABLES  IF  THFY 
ARE  NON  ZERO  OR  TRUE 


BEGIN 


eOPJFcT    TURNS  ON  OBJECT  PRINTING 
eNOOBjFCT  TURNS  OFF  OBJECT  PRINTING 
CKILL      DOES  A  PIVIDE  BY  7EROJ 

boolfan  id'tracfparm 'trace sem'tpacepig; 
integfp  n>top*pottom; 
languagfcontrolcapo  ♦  true; 
if  parm  =  "kill  " 

THFN  I  <•  I/O 

ELSE  IF  PARM  =  "OPjFCT"  THEN  PRINTOPJFCT 

ELSE  IF  PARM  =  "NPORJE"  THEN  PPINTOBJECT 

ELSE  IF  PARM="DUMP   " 

THFN 

DO 


TRUE 
FALSF 


BEGIN 

DEFINE  PRTNT  =  BL ANKME SOUTJ REPL ACF  PMESOUT+5  BY  *p 
FIMISHCFINISH1  )  =  >"  =  "> 

FINISH1  FOR  A  DIGITSJ  WRI TEMFSOUT* > 
pRlNTlABELeBLANKMESOUTl 

REPLACE  PMESOUT  PY  "s==>  «,*; 

L  fancy; 

uagecontrolcard  •«■  truf; 
«■  ccscan; 
arm  =  "status" 


LABE 
LANG 
PARM 
IF  P 
THEN 
BEG  I 


N 


printlapel  "status"; 
writemfsout; 

IF  IDCOUNTER  t    0 

THEN 

BEGIN 

print  "idcountfp" 
finish(idcounter) 

end; 

if  tdlistcounter  4   0 

THEN 

BEGIN 

PRINT  "IDLISTCOUNTER" 
FINlSHCIDLlSTCOtiNTER) 

END? 

IF  CUPRFNTDFCLTYPE  *    0 

THEN 

BEGIN 

print  "currentdfcltype" 
finish(curpentdfcltype) 

end; 

if  cuprfntdeclown  *  0 

THEN 


0033?900 
OO333O00 
00333100 
00333200 
00333300 
00333400 
00333500 
00333600 
00333700 
00333800 
00333900 
00334000 
OO33M00 
0033^200 
00334300 
0033^400 
00334500 
00334600 
00334700 
00334600 
00334900 
00335000 
00335100 
00335200 
00335300 
00335400 
00335500 
00335600 
00335700 
00335800 
00335900 
00336000 
00336100 
00336200 
00336300 
00336400 
00336500 
00336600 
00336700 
00336800 
00336900 
00337000 
00337100 
00337200 
00337300 
00337400 
00337500 
00337600 
00337700 
00337600 
00337900 
00338000 
00336100 
00336200 
00338300 
00336400 
00338500 
00338600 
00336700 
00336800 
00338900 
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BEGIN  00339000 

PRINT  "CURPENTDFCLOWN"  00339100 

FINISH (CURRENT DFCLOWK)  00  3  39200 

END)  00339300 

IF  CURRENTDECLNODF  *    0  00339400 

THEN  00339^00 

BEGIN  00339600 

PRINT  "CURRENTDFCLNODE"  00339700 

FINISH (CURRENT OF CLNODE)  00  339600 

END)  .  00339900 

IF  CURRENTDECLMACRO  *  0  00340000 

THEN  00340100 

BEGIN  00340200 

PRINT  "CURPENTDFCLMACRO"  00340300 

F INI SH(CURPENTDFCt MACRO)  00  34  04  00 

ENDI  00340500 

IF  CURRFNTNUMPROFSUBS  *    0  00340600 

THEN  00340700 

BEGIN  00340600 

PRINT  "CURPENTNUMRROF SUPS"  00340900 

FINISH(CUPRENTNUMPRDFSUFJS)  00341000 

END)  00341100 

IF  CURRFNTPROCEDUREID  *    0  00341200 

THEN  00341300 

BEGIN  00341400 

PRINT  "CURRENTPROCEDUREID"  00341500 

FINISH(CURRENTPROCEDUREID)  00341600  . 

END)  00341700  ] 

IF  CURRFNTEXPRESSIDNTYPE  t    0  00341600 

THEN  00341900 

BEGIN  00342000 

PRINT  "CURRENTEypRESSlUNTYPE"  00342100  \ 

FlMSH(CURRENTEVPRESSInNTYPE)  00342200  ,'j 

END)  ,  00342300 

IF  CURRENTSTRUCTUREPTR  #  0  00342400  ;| 

THEN  00342500 

BEGIN  .  00342600 

PRINT  MCURRENTST^UCTl!REPTRM  00342700 

FINISH(CURPFNTSTRUCTIIRFPTR)  00342600  j 

END)  00342900  i 

IF  CURRFNTNUMFEROFSUPSTRUCTURFS  *    0  00343000  i 

THEN  00343100  J 

BEGIN  00343200  i 

PRINT  "CURPENTNuMRFRPFSUPSTRUCTllRFS"  00343300 

FINISH(CURRENTNUK:PERDFSUPSTRUCTURES)  00343400 

END)  00343500 

IF  CURRENTIDPTR  *    0  00343600  j 

THEN  00343700  j 

BEGIN  00343600  j 

PRINT  "CURPFNTlDPTR"  00343900  j 

FIMlSH(CURRENTIPPTR)  00344000 

END)  00344100 

IF  CURRENTFORNiALPARAMETERLlSTpOINTFR  *    0  0034^200 

THEN  00344300 

BEGIN  00344400 

PRINT  ♦•CURPFNTFPRMALPARAMETFRLlSTPnlNTER"  00344500 

FINISH(CURRENTFORMALPARAKETERLISTPOINTEP)  00344^00 

END)  00344700 

IF  CURRFNTNUMpEROFFOPMALPARAMFTERS  t    0  00344600= 

THEN  00344900! 

BEGIN  00345000  i! 
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PRINT    "CURPENTM-IMBEROFFOPMALPARAMETEpS" 
FINlSHCCURPEN'TNl'HBERdFFOPMALPARAHETEPS) 

END) 

IF  CuRRENTACTUALPARAyETERCOUNT  i    0 

THEN 

BEGIN 

PRINT  "CUR&ENTACTUALPARAMETEPCOUNT" 
FINISH(CURRENTACTUALPARAMETERCOUNT) 

END) 

IF  currentmaxaccessnumber  *   o 

THEN 
BEGIN 

PRINT  "CURPENTHAXACCESSNUMBEP" 

F  IN  I  SH( CURRENTMAXACCESSNUMBER) 
END! 

IF  CURRENTACCESSIO  *    0 
THEN 
BEGIN 

PRINT  "CURRENTACCESSIO" 

FINISH (CURRENT ACCESS  ID) 
END) 

IF  STRUCTURElsnwN 
THEN 
BEGIN 

PRINT "STRUCTUREISOWN"; 

WRITF^ESOUT 
END) 

IF  SCANNINGFORMALPARAMETERDECLARATIONS 
THEN 
BEGIN 

PRlNr'SCANNlNGFOPMALPARAMETERDECLARATlONS") 

WRlTFMESriJT 

END) 

IF  CUPRENTSTRUCTUREPTPISINIDSTACK  * 

THEN 

BEGIN 

PRINT"CURRENTSTRUCTUREPTRlSlNlDSTACK»'i 
KRITFMESOUT 

END) 
END 

ELSE  If  PARM  r  "IDCOUN" 
THEN 
BEGIN 

PRINTLApFL  " I DCOUNTEPSTACK" J 

k R  I  T E V E S 0 II T  J 

PRINTSTACi'dDCOUNTERSTAClOPTIDCOUNTERSTACK) 
END 

ELSE  IF  PARM  =  "STRUKT" 
THEN 
BEGIN 

PRINTLAPFL  "STRUCTURFPARMSTACK") 

writemesout; 

PR  I NTST A CK( STRUCTURE  PA RMSTACK»PT STRUCTURE PARMSTACK) 
END 

ELSE  IF  PARM  =  "PROCED" 
THFN 
REG  IN 

PRINTLAPFL  "PROCEDURFIDSTACK") 

WRITEMESOI'T) 

PRINTSTACK(PPOCEDURElDSTACK*PTPROCFDliREIDSTACK) 
END 


00345100 
003i|b?00 
00345300 
003/|5<i00 
00345500 
00345600 
00345700 
003^5600 
0034^900 
00346000 
00346100 
00346200 
00346300 
00346400 
00346500 
00346600 
00346700 
00346600 
00346900 
00347000 
00347100 
00347200 
00347300 
00347400 
00347500 
00347600 
00347700 
00347800 
003«79C0 
00346000 
00346100 
00348200 
00348300 
00348400 
00346500 
00348600 
00346700 
00346800 
00346900 
00349000 
00349100 
00349200 
00349300 
00349400 
00349500 
00349600 
00349700 
00349600 
00349900 
00350000 
00350100 
00350200 
00350300 
00350400 
00350500 
00350600 
00350700 
00350600 
00350900 
00351000 
00351100 
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FLSE  IF  PARM  =  "SUBSCR"  00351200 

THEN  00351300 

BEGIN  00351400 

PKINTLAPEL  "SUBSCRIPTSTACK";  00351500 

WRITFT^ESOUTJ  00351600 

PkINTSTACK( SUP SCRIPTSTACK>PTSUBSCRTPT STACK)  00  3517  00 

FND  00351e00 

FLSE  If  PARM  =  "ACTUAL"  00351900 

THFN  00352000 

BEGIN  •  0035?100 

PRTNTLAPFl  "ACTUALPAPMSTACK")  00352200 

WRITFMFSCIUT;  00352300 

PRINTSTACK(ACTUALPARMSTACK'PTACTUALPARMSTACK)  00  352  400 

END  00352500 

FLSF  IF  PARM  =  "FORMAL"  00352600 

THEN  00352700 

BEGIN  00352(500 

PHJNTLAPEl  "FDRMALSWJTCHSTAC*"*  00352900 

KRUEMESOl'TJ  00353000 

PRINTRSTACKCFDRMALSWITCHSTACKi»PTFbRMALSwITCHSTACK)   00  35  3100 

FND  00353200 

ELSE  IF  PARM  =  "IDSTAC"  00353300 

THEN  00353400 

BEGIN  00353500 

ID  «■  TRUE*  00353600 

GO  TO  FANCY  00353700 

FND  00353600 

FLSE  IF  PARM  =  "STRUCT"  00353900 

THFN  00354000 

PEGIN  00354100 

ID  <-  FALSF;  00354200 

FANCYt     PARM  «-  CCSCAN;  00354300 

IF  PARM  =  "TRACF  "  00354400 

THEN  *  00354500 

DO  REGIN  0035^600 

PARM  «■  CCSCAN;  00354700 

IF  FARM  =  "PARM   "     Y  00354800 

THFN  00354900 

PEGU'  00355000 

TRACEPARM  «•  TRUE;  00355100 

PARM  <-  CCSCAN  00355200 

ENp  00355300 

ELSE  IF  PARM  =  "SEM    "  00355400 

THFN  00355500 

BEGIN  00355600 

TRACFSEM  ♦  TRUFJ  00355700 

PARM  *  CCSCAN  00355b00 

ENP  00355900 

ELSE  IF  PARM  =  "FIGTAB"  00356000 

THFN  00356100 

BEGIN  00356200 

TPACERIG  «■  TRUE;  00356300 

PARM  «■  CCSCAN  00356400 

ENP  00356500 

ELSF  TRACEPARM  <  TRACESEM  «■  TRACERIG  *  TRUE     00356600 

FND  UNTIL  FARM  4    ">"J  00356700 

If  PARM  =  "ALL    "  00356600 

THFN  00356900 

F-EGIN  00357000 

TOP  ♦  IF  ID  THEN  PTTOSTACK-1  OO3S71O0 

ELSF  PTSTRUCTURFTAP-1J  00357?00 
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END 
ELSF 
THEM 
BEGIN 


BOTTOM  *  1) 

IF  PARM  =  "TOP 


TOP  <■    IE  ID  THEM  PTTDSTACK-1 

ELSF  PTSTRUCTURETAB-i; 

n  <-  ccscan; 

BOTTOM  «■  TOP  +  l-NJ 
END 

ELSE  TOP  *  BOTTOM  «■  PARM; 
EOR  N  «•  TOP  STFP  -1  UNTIL  BOTTOM  DO 
DUMPTAB(ir-jN*TRACFPARk#TRACESFM»0#TRACEBlG) 

fnd 

flse  if  parm  =  "mstack" 

THEN 
BEGIN 

IF  (PARM  «-  CCSCAN)  =  "TRACE  " 

THEN 

BEGIN 

DO  BFGIN 

IF  (PARM  «■  CCSCAN)  =  "ALL    " 
THEN  TRACEPARM«-tRACFSEM<-tRaCEBIG<-TRUE 
FLSF  IF  PAPM  =  "PARM   " 
THEN  TRACEPARM  <-  TRUE 
FLSE  IF  PAPM  =  "SEM    " 
THEN  TRACESEM  <-  TPUFJ 
END  UNTIL  (PARM  *•  CCSCAN)  *    ","; 
DUMPMSTACK(PTMSTACK-l); 
IF  TPACEPARM  OR  TRACFSEM  OR  TRACFBIG 
THFN  DUMPTAB(TRUE*S0PD(BIGTAP/ 

$OPD(M STACK, STOP , ENTRY 
IDSTACKPTR), 
TRACEPARM,TPACESFM,1*TRACEBI-G); 
END 

ELSF  IF  PARM  =  "TOP    " 
THEN  Y 

BEGIN 


N 
BO 

TO 
FO 
DU 


«•  CCSCANI 

TTOM  «■  MAX(PTMSTACK-N#0); 

P  <-  PTMSTACK-1J 

R  M  <•  TOP  STEP  -1  UNTIL  BOTTOM 

MPMSTACK(N)J 


DO 


END 


END 


FND 

ELSE 

BEGIN 

BLANK 
REPLA 

WRITE 
END) 

IF  CCSCAN 
END  UNTIL  CCSCA 
ELSE  LANGIJAGECO 
LANGUAgFCONTKOIC 


sout; 
pmfsout  by  "===>  i  can  not  understand  "» 

HIS    *DllMP    CARD."; 
SOUT 

"j"    THEN    ID4-LANGUAGECDNTR0LCARD("DUMP       "); 

*   ••  ;  •• 

POl  CARD  <-  FALSE 

p; 


PRICE  DURE 
BEGIN 


noforwardmatch; 


003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
)>003 
003 
003 
003 
003 
003 
003 
003 
003 

003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
003 
004 
004 
004 
004 
004 


57300 
57400 
57500 
57600 
57700 
57600 
57900 
5&000 
56100 
56200 
56300 
56400 
56500 
56600 
56700 
56600 
56900 
59000 
59100 
59200 
59300 
59400 
59500 
59600 
59700 
59600 
59900 
60000 
60100 
60200 
60300 
60400 
60500 
60600 
60700 
606O0 
60900 
61000 
61100 
61200 
61300 
61400 
61500 
61600 
61700 
61600 
61900 
62000 
62100 
62200 
62300 
62400 
62500 
62600 
62700 
62600 

ooioo 

00200 
00300 
00400 
00500 
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erpms  "this  pppcecupe  heaping  does  not  match  the"  forward  "> 
"declaration  of  itself. "j 

writemfsout; 

END  NOfPRWAPDMATCHJ 


BOOLEAN  PROCEDURE  FcuAL STRUCTUPETAB( A» B ) J  INTEGER  A/PJ 

COMMENT   THIS  PROCEDURE  CHECKS  THAT  THE  HATA  TYPfS  AT  A&B  IN 

structi'petap  have  the  same  specification  and  substructure 

specification; 

if  a  =  0  then  fqualstructurftab  *■   b  =  0 

else  if  e-  =  0  then  ecualstpucuirftab  ♦  false 

else  eoualstructurftab  «■ 

sppd(structurftab,a,$all  0)  =  sdpd ( structurft ap , b , sall  0) 
and  ecualstructurftab($0ppcstructurftap>a,stpuctureptr)/ 

sopd(stpucturftar>b,structureptr)) 
and  eeualstructuretab(*opd(structurftap*a»fppmalparmptr), 

sopp (structure  tap #b/fppm a lparmptr)) j 


BOOLEAN  PROCEDURE  FQUAl  IPST  ACK  (  A*B  )  )     INTEGFR  A*B; 

COMmFNT   THIS  PROCEDURE  CHECKS  IF  THE  GOnDlES  AT  A  &    p  IN 
IDSTACK  HA\/E  THE  SAME  SPPC  I  F  I  C  AT  I  ON  AND  SUPSPEC  I  F  I  C  AT  I  ON  INSOFAR 
AS  DATA  TYPE  IS  CONCERNED) 

EOUALIDSTACK  «■  SOPO  (  I  DSTACK*  A#  S  ALL  0  )  =  *>PF  D  (  TPST  ACK  ,P  *  SAL  L  0) 
AND  EQUAL STRUC TURE T AP(SOPP (IDSTACK* A, ST PUCTUREPTR)> 

«OPD( IDSTACK, B'STRUCTUREPTR)) 
AND  EOUALSTRUCTURETAP(SOPD( IDSTACK, A, FPRMALPARMPTR  ) , 

SOPP(IDSTACK,B>FPPMALPAPNPTR))  J 


BOOLEAN  PROCEDURE  EQUAL IDSTRUCT( A* B  ) ;  INTEGEP  A»P; 

COMMENT   THIS  PROCEDURE  CHECKS  THAT  THE  GUY  A  IN  IDSTACK  IS  THE 
SAME  TYFE  AS  B  IN  STRUCTI'RETAB  I 

EOLALlDSTRuCT  «■  I,nPD(  IDSTACK,  A,  SALL  0  )  =  f>OPD  (  SPRUCTURpT  AP,  B*  SALE  0) 
AND  E0UALSTRUCTURETAB(?0PD(  IDSTACK » A > STRUCTURE PTR  )> 

SCPD( STRUCTURE TAP> B* STRUCTURF PTR  ) ) 
AND  EqUALStRUCTURETAB(SOPD(IDStACK,A>FOPMALPARMPtR)> 

»OPD(STRUCTURETAP#B*FORMALPARMPTR)); 


BOOLEAN  FROCEDURE  TFSTTYPf ( TYPF  )l  VALUE  TYPFJ  INTEGFR  TYPE; 

COMMENT   THjS  PROCEDURE  CHFCKS  IF  THE  TYPE  OF  THF  ID  IN  MSTACK 
IS  THE  SAME  AS  THE  "TYPE*'  IN  THE  FORMAL  PARAMETER  LIST) 
BEGIN  LABEL  FRUDECOPP; 

DEFINE  RETURN(RETUPM)  = 
BEGIN 

TESTTYPF  ♦  RFTURNi; 
GO  TO  FRUDECORP 
END  t\ 
IF  CUPRENTSTRUCTUPEPTR  e  0 
THFN 
BEGIN 

J.E  NTE  R(  MSTACK*  STOP,  NPDFt*OPD(  IP  STACK** PPD(FIGTAB# 

*DPD(M STACK, STOP*ENTRY)> 
IDSTACKPTP)   »NODE)>; 
IF  (  TESTTYPF  «- 


00400600 

OOA00700 

00400600 

00400900 

OOAolOOO 

00401 100 

00401200 

00401300 

00401400 

00401500 

0040lt>00 

00401700 

00401600 

00401900 

00402000 

00402100 

00402200 

00402300 

00402400 

00402500 

00402600 

00402700 

00402600 

00402900 

00403000 

00403100 

00403200 

00403300 

00403400 

00403500 

00403600 

00403700 

004031-00 

00403900 

00404000 

00404100 

00404200 

00404300 

00404400 

00404500 

00404600 

00404700 

00404600 

00404900 

00405000 

00405100 

OO4O5200 

00405300 

00405400 

00405500 

00405600 

00405700 

00405600 

00405900 

00406000 

00406100 

00406?00 

OO406300 

00406400 

00406500 

00406600 
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S0PD( 
AND  ( 


THEN  COUPL 
SOPDC 


SOPD( 
PRINT 


end 

ELSE 
BFGIN 


LpOPt 


I  APEL  LOriP 
INTEGER  I) 


IDSTACK>$0PD(BIGTAB*$0P0(MSTACK» STOP/ ENTRY)* 

IDSTACKPTR),TYPE)  =  TYPE  ) 
TYPE  =  STRUCT  OR 
$OPD(IDSTACK» 

$OPD(PIGTAR*SOPD(MSTACK#*TOP#ENTRY)# 
IDSTACKPTR)»NUMPROFSUBS)  >  0  ) 
E(t,NAME-CALL',j» 

IDSTACKM«-*PPDCPIGTaB/SOPD(M  STACK* 
STnP»FNTPY)*TDSTACKPTR)*IEVFL)* 
IDSTACK*I*DISPLACEMENT)* 
ID)J 


REGIN 


FOR  I 
DO  BE 


fnd; 


END) 

ERRMS 

WRITE 

RETUR 

LOOP: 


CURRENTIDP 

IF  TESTTYP 

THFN 

PEGIN 

OPERF 
"INTE 
1-1  F 
OPERL 
OPERF 
"MAKE 
PRINT 
OPERL 


«■  1  STEP  1  UNTIL  CURRENTNUMPEROFSUBSTRUCTURES 
GIN 
IF  SOPDtSTRUCTUPFTAB, 

CUPPFNTSTRUCTURFPTR+I-I* 
BIGTABPTK)  = 
SPPD(MSTACK* STOP* ENTRY) 

then  leave  lpop 

"this  10  is  not  part  of  this  structure.") 
mesout; 

N(TRUE); 

TR    «■    CURRFNTSTRUCTURFPTR  +  1-I; 

E    <-    *OPD(STRUCTliRETAP#CliPRENTIDPTR*TYPE)sTYPE 


IRSTPART* 
GEP-LITFRAl.-CALL 

OR   3  digits; 

ASTPARTJ 
IRSTPART* 
-INDFX   "* 
I  D  * 
ASTPARTJ 


fnp; 


End; 

ERUDECORpt 


END  ; 


integer  frpcfdure  findsu^structurf i d( bl gt apptr ) ; 
value  pigtabptr;  integer  pigtapptr; 

comment   this  procedure  usfs  thp  current  values  df 
currentstrlictureptr  anp  c  urpe  ntnumbfrdf  substructures  to  find 

AN  ENTRY  IN  STRUCTURFTAR  THAT  HAS  THE  SAmF  TF  AS  THAT  WHICH 
IS  AT  PIGTAPPTR  IN  pIGTAP.   IF  NO  ENTRY  IS  FDUND>  THFN  THE 
VALUE  OF  FINDSUBSTPUCTURFIO  IS  ZFRO  (0); 
BEGIN  LABEL  FRUDECORP; 

DEFINE  RETURNf RETUPN1 )  = 
BEGIN 

FINDSUPSTRUCTUPFID  «■  RETURNlj 
GO  ID  FRUDFCORP 
END  t\ 


00'i06700 
00406600 
00406810 
00406820 
00406830 
00406840 
00406900 
00407000 
00407100 
00^07200 
00407300 
00407400 
00407500 
00407600 
00407700 
00407800 
00407900 
00408000 
00406100 
00406200 
00408300 
00406400 
00406500 
00406600 
00408700 
00406800 
00408900 
00409000 
00409100 
00409200 
00409300 
00409400 
00409500 
00409600 
00409700 
00409800 
00409900 
00410000 
00410100 
00410200 
00410300 
00410400 
00410500 
00410600 
00410700 
00410600 
00410900 
00411000 
00411100 
00411200 
00411300 
00411400 
00411500 
00411600 
00411700 
004HbP0 
00411900 
00412000 
00412100 
00412200 
00412300 
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1NTEGFR 
FOR  I  * 
BEGIN 

IF 


i; 

1  STFP 


1  UNTIL  currentnumberofsubstructures  do 


$OPD(STRUCTl'RETAB> 

curpfntstructureptp+i-i* 
bigtabptr)  «  rtgtafptr 
then  returnccuprentstructupeptr+l-i) 

END 
ERUDECORPI  END  i 


BOOLEAN  PROCEDURE  FUNCT I PNTESTf TYPE  )  J 
VALUE  TYPF;  INTEGER  TYPF* 

COMMENT   THIS  PRPCEptjRE  CHECKS  IF  THE  FUNCTION  ON  THE 
TOP  OF  MSTACK  IS  OF  THE  SPECIFIED  TYPE; 
FUNCTIONIEST  «- 

(IF  B00LFANCSPPD(^STACK#STOP#PPOCEDUREPTRl.SINTniDSTACK)) 
THEN  SOPDCID  STACK,  snPD(MSTACK>$TnP>PROCFDURFPTR)>TvPF) 

Else  jopdcstructupetab^sopdc mstack, stop, procedureptr)# type )) 

=  TYPE* 


BOOLEAN  PROCEDURE  PFFSF T^OUAL C A p L A' P  )  J 
VALUE.  A>LA,P;  INTEGER  A»lA*Bj 

comment  this  procedure  does  an  ecualstructupftab  where  a  and 
la  point  tp  the  a  vectpr  and  dfscri&e  its  length.  b  is  as  in 
eoialstructuretab; 
begin  label  eruuecprpj 

define  return(retupnl)  * 

BEGIN 

OFFSFTFOUAL    «•    RETliRNl; 
GO    TO    FRUDECORP 
END    t\ 
INTEGFR    I'PJ 

P    «■    SpPO(STRUCTURETAp>R,STRUCT|iREPTP)i 
IF    LA    *    SOPD(STRUCTURETAP*B#NUMPRSUpSTRliCT) 
THEN    PEGIN 

RETURN(FALSE5 
END  ELSE  REGIN 

FOR  I  «■  1  STFP  1  UNTIL  LA  DO 

IF  NOT  EOUALSTPUCTl'RETAp(A  +  l-I#P  +  l-I) 

then  begin  re turn( f alse  )  fnd 
emhj 

RFTURN(TRUF) 
J  ERUDECURp:  END  j 


PROCEDURE  TFSTFPTYPE(TYPF)J  VALUF  TYPE;  INTFGER  TYPFI 

CO^^FNT   THIS  PROfEPUPF  PPlNTS  AN  FFROP  MESSAGF  IF  THE  NEXT 
AL  PARAMETER  IN  A  PROCEDURE  HOLS  NOT  HAVE  TYPF  "TYPE"; 
URPFNTACTUALPAPAMETERCOUNT  i    CURRENTNUMPE ROF FnRMALP A R A  METERS 


FORM 
IF  C 
THEN 
PEGI 


ENL 
ELSF 


ERPMS  "NUMBER  OF  ACTUAL  PARAMETERS  EXCFFDS  NUMBER  ALLOWED. "  f 
KRITFMf-SOUT; 

sfmantictest  «•  pals' 

If  *opdcstructiipftap»currentfop^alparamfterlistpointer  - 


004 

004 

004 

004 

004 

00  4 

004 

004 

004; 

004 

004 

004: 

00  4' 

004 

004 

004 

004 

004 

004 

004 

004 

004: 

004: 
004: 
004: 
004: 
004: 

004' 

004: 
004: 

004 
004 

004: 
004: 

004 
004 

004: 

004 
004 

004: 

004 
004 
004 

004: 
004: 
004: 
004: 
004: 

004 

004: 
004: 

004 

004: 

004 
004 
004 
004 
004 
004 

004: 

004' 
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THEN  SFMANTKTFST  ♦  FALSI: 
ELSE  SFMANTKTFST  <-  TRUE; 


CURRFNTACTUAlPARAMETERCOUNT* TYPE)* TYPE 


PRCC 
C 
ON  T 
f  OR 
DRIP 


END 


EDliRE  TFSTACCESSTYPFt  TYPF)J  VALl'F  TYPE?  INTFGER  TYPEl 
CWhrNT   THIS  PROCEPUPF  TESTS  THr  TYPf  OF  THE  ACCESS  VARIABLE 
HE.  TOP  OF  MSTACK.   IF  IT  IS  FOLLOWED  BY  AN  ARROW*  IT  IS  TESTED 
A  STORE  TYPE; 

GETLKSYMC1  ) ; 

IF  S0PD(MSTACK#STPP+1#PSYM)  =  "l" 

OR  snPD(MSTACK,$TnP+l*PSYM)  =  "«•" 
THFN  SEMANTICTFST  <-  TYPE  = 

*OPD(IDSTACK,J>PPD(PIGTAB#J  OP  D(M  STACK, STOP  #ENTRY)# 
IDSTACKPTP)>STORETYPF) 
ELSE  SFMAKTICTEST  «■  TYPE  = 

»OPD(IOsTACK»*rPD(BIGTAB#?OPO(MS'TACK>STOP»ENTPY)* 
IDSTACKPTR)>FETCHTYPF); 
TESTACCFSSTYPEI 


SAC 


SAC 

SAC 
SAC 


SAC 
fcAC 


|  AC 
!  AC 


TlONCO)  j 
DRLP 
PMLSOUT 
PTIOSTA 
PTSTRUC 
CUhRLNT 
END; 

TlONCACC 
TESTACC 

TI0N(ACC 

TlONCACC 
COMM 
CURRENT 
THE  DEC 
DROP 
CURRENT 
CURRENT 

end; 

TlONCACC 
TlONCACC 

AN  ACCE 

MESSAGE 

DROP 

CURRENT 

JT.XECCE 

SENTERC 


SPUSHCP 
CUKRENT 
SEXFCCS 

end; 

TlONCACC 

T  F  S  T  A  C  C 

1  HlhCACC 


*  POlNTERCMESOUTrO]); 

ck  «-  i ; 

TURFTAR  <-  n 

SEGMFNT  <-  CUPPENTLEVFL  ♦ 


-t; 


FSSpOOLEAN) t 

fsstypecbood; 

FSSCODF) : 

FSSDFCLARATTON) J 

FNT   THIS  ACTION  SFTS  UP  AN  ACCESS  DFCLARATION  SCAN* 

PFClTYpE  IS  SET  UP  AND  CURRENT ACCFSS I p    IS  SET  TO  POINT  TO 

LARATION  OF  THE  ACCESS  TYPE  TN  IDSTACkJ 

decltype  «■  accessvar; 

accfssid  «■  jopdcplgtap#sopd(mstack#stpp#ek'try)#i0stackptr); 


FSSFILE) t 
FSSlDFNTIF IFP) ! 

FNT   THIS  ACTION  FNTFRS  THE  TD  INTO 
SS  DEFINITION.   IF  THE  ID  IS  IN  USE 
IS  PRINTED! 


TDSTACK  AND  SETS  UP  FOR 
IN  THIS  PLOCtO  AN  ERROR 


DECLTYPE  «•  ACCESS! 
NTFRlDINDECLSTArKi; 

IDSTACK,STOP,STPUCTPTRBEFOREjPTSTRUCTURETAR, 
ACCFSSTYPEt 

CCUPRFNTMAvACCFSSNUFBER  «■ 
CURRENTMAyACCFSSNUNBER+1)); 
ROCFDIIRFIDSTACK/CIIPRFNTPROCEDUREIP); 
PR0CFDURE1D  <■  PTIPSTACK-1J 
CANSUPSTRUCTURE); 

FSSlNTFGFh) J 
FSSTYFFC INT); 
FSSPATTERN)! 


00418500 
00^18600 
00418700 
00418800 
004169C0 
00419000 
00419100 
00419200 
00419300 
00419400 
00419500 
00419600 
00419700 
004196C0 
00419900 
00420000 
004?0100 
00420200 
00420300 
00420400 
00420500 
00500100 
00500200 
00500300 
00500400 
00500500 
00500600 
00500700 
00500800 
00500900 
00501000 
00501100 
00501110 
00501200 
00501300 
00501400 
00501500 
00501600 
00501700 
00501800 
00501900 
00502000 
00502100 
00502200 
00502300 
00502400 
00502500 
00502600 
00502700 
00502b00 
00502900 
00503000 
00503100 
00503200 
00503300 
00503400 
00503500 
00503600 
00503700 
00503710 
00503720 
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TESTACC.FSSTYPnPATT); 
iACTlOKACCFSSFOlNTFh)  « 

testaccfsstype(ptr); 
$acti0k(accfsspr0cess)1 

$ACTlON(ACCFSSSTRUCTURF)l 

testaccfsstype(struct)! 
sactionc accfsstring) l 
testaccfsstypfcstr); 

$ACTlON(ADpANDTHFRSUb SCRIPT)! 

*IKCh(CL'f<PF^TNUMtRPFSUPS)i 
$ACTlOK(bUrLEANDFCLARATTDN)j 

CCMMFNT   THIS  ACTION  SETS  CURRENTPEC 
THAT  A  PODlEAN  DECLARATIPN  IS  PEING  SCA 
CUf^PE  KTDECLTYPF  <■  ROCLj 
SACTlOKCbOnLEA^PROCEDURE)! 
DRIP 

SEMANTlCIEsT  «■  (IF  CURPFNTSTRUCTUREpTR 
THEN  SnPPUDSTACK#CURR 
ELSE  SOPDCSTRUCTURFTAH 
=  POOL  J 
FNDJ 
tACTlON(BOCLEANSTORF)! 
DROP 

DPERATDP(wSTORF-bOnLFANH); 
END) 
SACTION(CHFCHFDRMAlALLnwFD)! 

COMMENT   THIS  ACTION  MAKES  SURE  THAT 
IS  ALLPKED; 
DRCP 

IF  NOT  J0PD(F0RMALSWITCHSTACK*ST0P-1)  % 
THEN 
EEGIN 

erpms  "a  ",»•"",  ♦'formal,,*m,,n>,,  spec 
"as  a  ppocedurf  bpdy  if  the 
"is  a  formal  parameter  of  an 

writemfsout 

end; 

END; 
SACTION(CHECKFORWARDOK)! 

COMMENT   THIS  ACTION  CHECKS  TO 
PROCEDURE  pODY  IS  ALLOWED; 
DROP 

I  *  *OpP(lpSTACK#CUPRENTPROCFDURFID»PIG 
IF  SOPnCBIGTAB, I/FPRWAPDPEFINFP)  n  1 
THEN 
BEGIN 

erpms  "hey  dummy  -  pnly  one  forwar 
;  ^ritemesout 

END 

ELSE  If  SCANNINGFORMALPARAMETEPDFCLARAT 

THEN 

BEGIN 

ERPMS  "FPRKARP  IS  NPT  AN  ALLOWFD  P 
"FORMAL  IS  PERMITTFPt  "J 

KRITEMESOUT 
END 

ELSE  SnPDCpinTABM#FOPwAPDDEF  INED)  «■  1) 
END) 
iACTlON(CHFCKlFNFXTFHSAPRCCFPLiRE)! 
DROP 
IF  CURRF NTACTUALFAPAMETEPCOUNT  *  CUPREN 


LTYPF  =  BOOL  TO  INDICATE 
NNED  f 


=    0 

FNTPRnCEDURElD#TYPF) 

/CURRENTIPPTR^TYPE)) 


A  FORMAL  PRPCFDURF  PODY 


CHK  IF  FORML  PARM  SCANlNG 


IFICATION  IS  ONLY  ALLOWED 
DECLARED  PPOCFDURE  *>   <. 
OTHER  PROCEDURE."* 


MAkE  SURE  THAT  A  FORWARD 


TABPTR); 


D  PER  PROCEDURE  IS  ALLOWED 


IONS 


ROCFPURE  PODY  HERE.   ONLY 


TNUMPFROFFPRMALPARA METERS 


00503 
00503 
00503 
00503 
00504 
00504 
0050" 
00504 
00504 
00504 
00504 
00504 
00504 
0050  4 
00504 
00504 
00505 
00505 
00505 
00505 
00505 
00505 
00505 
00505 
00505 
00505 
00506 
00506 
00506 
00506 
00506 
00506 

">00506 
00506 
00506 
00506 
00507 
00507 
00507 
00507 
00507 
00507 
00507 
00507 
00507 
00507 

, "00506 
0050B 
00506 
00508 
00508 
00508 

",00508 
00508 
00508 
00506 
00509 
00509 
00509 
00509 
00509 


730 

8C0 

810 

900 

000 

010 

100 

110 

200 

300 

400 

500 

600 

700 

800 

900 

0  00 

100 

200 

300 

400 

500 

600 

7  00  ! 

600 

900 

ooo 

100 
200 
300 

400  : 
500 
600 
700! 

600 
900  i 

000 
100 
200 

300 
400 

500 
600 
7  00 
800 
900 
000 
100 
200 
300 
400 
500 
600 
700 
600 
900 
GOO 
100 
?00 
300 
400 
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THEN 
BEGIN 

errms  " 
writeme 

SEMANTl 
END 
ELSE 
IF  P00LFANC* 


THEN 
BEGIN 


SEMANTl 
IE  NOT( 


END 
ELSE 
END; 
SACTION(C 
DROP 
IF  C 
THEN 
BEGI 


END 

ELSE 

SEM 

END; 

SACTlONf 

SACT I ONC 

SACHOM 

t  A  C  T  I  0  h  C 

IACTIOM 

tACTlONC 

JACtIONC 

SACTlOM 

«ACT I ONC 

lACTlCNC 

C 

ACTU 

IDEN 

PARA 

DROP 

IF    C 

THEN 


THFN 
BEGIN 

WR 
end 

SEMANTl 
HECKIFNE 

URRFNTAC 

N 
ERRMS  " 
WRITEME 
SEMANTl 


NUMBER  OF  ACTUAL  PARAMETERS  EXCFEDS  NUMPFR  ALLOWED."  ) 

SOUT; 

CTEST  «-  TRUE; 


OPDCSTRUCTuRFTAP,CURRFNTFORMALPApAMETFRLlSTPOlNTER  - 
CURRFNTACTUALPARAMETERCOUNT^PROCEDURF)) 


CTEST  «-  TR(iE) 

IF  BUDLFAN(SnpD(MSTACK/ST0P*PR0CEDUPFPTPISlNTOIDSTACK) 
THEN  EQUAL  IDSTRUCT(SOPDCMSTACK»fTOP>PRnCFDliRFPTR)> 

CURRENT  FORM ALPARAMETFRL I STPO INTER 
CURRENT  AC TUALPARAMETFRCOUNT) 
ELSE  EOUAl STRUCTURETAB(SOPD(MSTACK>STOP>PROcEDUREPtR> 

CURRENTFPRKAI PARAMETFRLISTPOINTFR 
CURRENT AC TUALPARAMETFRCOUNT)) 


RMS  "PROCEPUPE  ID  DOFS  MOT  MATCH  THE  PRPCEpUPE  FORMAL" 

"  PARAMETER  IN  THE  PROCEDURF  DECL  AR  AT  ION  .  "J 
ITEMESOUT 


CTEST  <•  false; 

XTFPISACCESSil 

TUALPARAMETFRCOUNT  Z    CURRENTNUMPEROFFORMALPARAMETERS 


number  of  actual  parameters  excfeds  numpfr  allowed."  * 

sout; 

ctest  «■  truei 


NTICTEST  <•  FALSE; 


CHECKIFN 

CHFCKIfN 

CHECKIFN 

CHFCKIFN 

CHFCKIFN 

CHFCKIFN 

C  H  E  C  K  T  F  N 

CHECKIFN 

CHECKIFN 

CHFCKIFN 

D  M  M  F  N  T 

A  L  P  A  P  A  M 

TlcAL  TO 

METFR  IS 


TESTFPTYPECPOOI  ); 
TESTFPTYPE(nSLCnDE); 
TFSTFPTYPECFVNT  ); 
TFSTFPTYPE(OSLFILE); 


EXTFRISBDOLEAN)! 

EXTFPISCODE    )« 

EXTFPISFVENT   )J 

EXTFPISFILE    )t 

EXTFPISINTEGFR)» 

EXTFPISPATTERN)  J 

EXTFPISPOINTER): 

FXTFPISPROCESS)» 

FXTFPISSTRING  )» 

EXTFPISSTRUCTURE)! 

THIS  ACTION  PRINTS  AN  ERROR  MESSAGE  IF  THE  SCANNED 

FTER  WHICH  wAS  A  STRUCTURE/  IS  NOT  STRUCTURALLY 

THE  PROCEPUPE  FORMAL  PARAMETER  OR  IF  THF  FORMAL 

NOT  A  STRUCTURE; 


tfstfptypeunt 

tfstfptypecpatt 

tfstfptype(ptp 

tfstfptypecpros 

tfstfptype(str 


); 
); 
); 
); 
); 


FND 


URRFNTACTUALPARAMETEPCOUNT  i    CURRENTNUMPEROF FORMALP ARAME TFPS 
BEGIN 

Errms  * 

WRITEMF 
ELSF  REG 

ir  sopn 


NUMBER  OF  ACTUAL  PARAMETERS  EXCFFDS  NUMPFR  ALLOWED."  J 

SOUT 

IN 

CSTRUCTURETAR* 


00509500 
00509600 
00509700 
00509800 
00509900 
00510000 
00510100 
005l0?00 
00510300 
00510400 
00510500 
00510600 

)00510700 
00510600 

-00510900 
00511000 

#00511100 

-00511200 
00511300 
00511400 
00511500 

> 00511600 
00511700 
005llb00 
005H900 
00512000 
00512100 
00512200 
00512300 
00512400 
00512500 
00512600 
00512700 
00512600 
00512900 
00513000 
00513100 
00513200 
00513300 
00513400 
00513500 
00513600 
00513700 
00513600 
00513900 
00514000 
00514100 
00514200 
00514300 
00514400 
00514^00 
00514600 
00514700 
00514600 
00514900 
00515000 
0051510C 
00515200 
00515300 
00515400 
00515500 


210 


THFN 


END 


cu 

cu 

PEG  IN 
ERRMS 

WRITE 

ELSE  B 

IF  NO 


RRENTFOPMALPARAMETERlISTPriNTFR 
RRENT ACTUAL  PAR AMETERCCUNT>TYPF) 


*    STRUCT 


THEN 


END 


"A  STRUCTURE  IS  MOT  ALLOWED  AS  AN  ACTUAL  "> 
"PARAMETFR  AT  THIS  PARAMETER  POSITION,"; 
MESOUT 
EG  IN 
T  OFF  SE TE DUAL  (SOPP(MST  AC K,  STOP »STPUCTl!REPTR)> 

SOPP(MSTACK»STPP»NUHPRSURSTRlJCT)* 
CURRENTFORMALPARAMETFRLISTPOINTER  + 
CURRENT AC TUALPARAMETERCPUNT) 


BEGIN 

ERRMS  "STPUCTURF 
"STRUCTURE 

KRITEMESOUT 


DOES  NOT  MATCH  FORMAL  PARAMETER  " 
IN  PROCFPURF  DECLARATION,"; 


END 


E 

F 

SACTI 

D 
I 
D 
I 
T 
P 


F 
E 

SACTI 
JACTI 

S 

D 

I 


checknotformad » 

UMKFNT   THIS  ACTION  CHECKS  THAT  A  STATEMFNT  PODY  TO  A  PROCEdU 
ARATION  WAS  ALLOWED  AND  TURNS  OFF  THF  FORWARD  HIT  IN  BIGTAR 
T  *AS  ON) 


NDJ 

nd; 

0N( 

C 
ECL 
F  I 
ROP 

F  SCANNINGFORMALPARAMETERDECLARATIONS 
HEN 
EGIN 

ERRMS  "PROCEDURF  DECLARATIONS  USED  TO  PEFINF 

"PARAMETFPS  in  a  procfdupe  heading  may 

"""."FORMAL."*""*'"  AS  A  BODY. "J 
WPITEMFSOUT 


FORMAL  "> 
ONLY  USE  ". 


E 
I 
f 
t 

N 

E 

SACTI 

0 


NO 

LSE 

EGI 


no; 

NO) 
0N( 
0N( 
C 
UBS 
ROP 
F  ( 


HEN 
EGI 


NO  I 
POP 
POP 
POP 
ONA 

nu; 

0N( 

C 

N  T 


N 


SOPD( R I GTAB.SOPDC I DSTACm CURRENT  PROCEDURE  I D.P I GTApPTR). 
E0RWARDDFFINFD5  «■  O; 


CHfCKSuBSCRIPTFDFOPUPPER)« 

ChFCKSUBSCRIPTMATCH  1  » 

OHMFNT   THIS  ACTION  PRINTS  AN  ERROR  MESSAGE 
CRIPTS  DOES  NOT  MATCH  THE  DECLARATION 


IF  THE  NUMBER  OF 


if  currentstpucturfptr  =  0 

then  snpd(idstack»s0pd(bigtap#*rpd(mj:tack»st0p-2»  entry)/ 
idstackptr)>numbrofsups) 

ELSF  tpPD(STRUCTURETAB'CoRRFNTlDPTR.NUMPPOESlipS))  * 
CURRENTNUMBROFSllBS 

N 
ERRMS  "NUMPER  OF  SUPSCRIPTS  DOES  NOT  MATCH  DECLARATION."; 
WPTTFMESOUT 

(SOPSCRlPTSTACKiCUPRFNTNiiMPROESUHS); 

( SUP  SCRIPT STACKtCUPRFNTSTRUCTURFFTR); 

(  St)P  SCR  I  PT  ST  AC  KrCURRFNTNUMPEROE  SUBSTRUCTURES)  I 

M  t  C  A L  L  <■  TR LIE  I 

CHF  CKTpATlDlSTYPFD)  « 

OMMENT   THIS  ACTION  SETS  SFMANTTCTEST  TRUE  IF  THF  PROCEDURE  I 

HE  TUP  OF  THE  STACK  IS  A  TYPED  PROCEDURE  IUJ 


005] 

15600 

005' 

15700 

005 

[5t00 

005 

15900 

005 

16000 

005' 

6100 

0051 

6200 

005] 

6300 

0051 

[6400 

005' 

16500 

005] 

6600 

005] 

6700 

*    0051 

6  6  00 

005] 

6900 

005] 

17000 

005' 

17100 

005 

17200 

005' 

17300 

005] 

17400 

005] 

7500 

RE0051 

7600 

005] 

7700 

005] 

7600 

0051 

7900 

005] 

6000 

0051 

16100 

005' 

16200 

005] 

6300 

005] 

6400 

005] 

16500 

005] 

18600 

005] 

6700 

005] 

6600, 

005] 

6900 

005] 

9000 

005] 

9100 

005] 

9200 

005] 

19300 

005] 

9400 

005] 

9500 

005] 

9600 

005] 

9700 

005] 

9600 

005] 

9900 

00520000 

00520100 

00520200 

00520300 

00520400 

00520500 

00520600 

00520700 

00520^00 

00520900 

00521000 

00521100 

00521200 

00523  300 

0052MCO 

D  00521500 

00521600 
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DROP 

SEKANT  ICTEST 
(IF 


BOOLE AN(£PPP(MSTACK,$TPP*PRPCEDUREPTRISINTOIOSTACK)) 
THEN  SOPD(IPST/\CK, 

SOPD(MSTACK**TOP»PROCEDUREPTR)# 

TYPE) 
ELSE  JPPPCSTRUCTURFTAR, 

SOP D(MSTACK* STOP* PROCE DURE PTR)# 

TYPE))  *  unpecl; 


end; 

COMMENT 

THF  FOLL 
OF  HSTACk  IS 
$ACTION(CHECKTHAT 
COMMFNT  T 
ALONE  SHOULD 
ARE  REQUIRED* 
DROP 

IF  (IF  POPLEA 
THfN  $pPD 
ELSE  SpPD 


OWING  ACTIONS  ALL  TEST  IF  THE  FUNCTIPN  PN  THF  TOP 

OF  THF  INPKATFD  TYPE; 

PARPSNOTRFQI'lREP  )  : 

HIS  ACTION  TNSURFS  THAT  A  PROCFDURE  ID  STANDING 

NOT  HAvE  ACTUAL  PARAMETERS.   IF  ACTUAL  PARAMETERS 

AN  ERROR  MESSAGE  IS  PRINTED! 


THEN 


END; 

END; 

SACTIONC 


BEGIN 
ERRMS  "T 
WRITEMES 


N(SUpP(MSTACK*STOP*PROCFDURFPTRISINTPinSTACK 
(IDStACK*£0PD(MSTACK*StPP*PP0CF0URE'PTR)*NUMB 
(STRUCTURETAB*SOPD(MSTACK*STOP*PROCFDUREPTP) 
NUMBROFPARMS))  *    0 

HIS  PRPCEDUPE  REQUIRES  ACTUAL  PARAMETERS,"; 
OUT 


)) 

POFPARMS) 

» 


CHECKTHA 
T 
EX 


TPRUCEDUREISNPTTYPEO   )» 

HIS  ACTION  GENERATES  An  ERRPR  TF  A  RETURN  IS 

PRLSSION  IN  A  TYPED  PROCEDURE  PFCLARATIRN; 


USED 


commfnt 
without  an 

DROP 

IF  SOPDCIDSTACK* CUPRENTPPPCEDUREID'TYPE)  #  UNDECL 

THEN 

BEGIN 

ERRMS  "AN  EXPRESSION  IS  EXPFCTFD  FOLLOWING  THE  "*"*">"RETURN" 
w  »i  n  , »?  i« 


writemeso 
end; 

COMMENT 

the  follo 
if  the  procedu 
type; 
end; 

SACTION(CHECKThATR 

comment  in 
declarfd  proce 
if  it  ppes  not 

E  E  G  I  N 

DEFINE  ER 


LAFEL  LOO 

INTEGER  P 
N 
R 
N 

IF  CURREN 

THEN 

bfgin 

PROC 


**'.••; 

UT; 


WING  ACTIONS  ALL  SET  SEMANTlCTFST  TRUF 

RE  CURRENTLY  BEING  DECLARED  IS  OF  THE  INDICATED 


ETURNSTRUCTUREMATCHESPROCEPURFSTRUCTUR): 
A  RFTURN  <TATFMFNT,  THIS  ACTION  CHFCKS  WHETHER  ThE 

DURE  STRUCTURE  MATCHES  THE  REH'RNEP  STRUCTURE. 
AN  ERROF  MESSAGE  IS  PRINTED; 

ROR  =  BEGIN  ERRMS  "RETURNED  STRUCTURE  DOES  NOT  »'* 
"MATCH  THE  DFCLARED  PROCEDURF  STRUCTURE."; 
WRITFMFSOUT  END  fl 

p; 

ROCEPURE STRUCTURE POINTER* 
UMBEROFPRUCEDURESUnSlRliCTURES* 
ETURNSTRUCTUPFPO INTER* 
UMBERPFRFTUPNSUBSTPLlCTURES; 
TSTRUCTUPFPTR  =  0 


EDURFSTRUCTUREPOINTER  * 

tOPD(lOSTACK»CUPRENTPROCEDUREID*STRUCTURFPTR); 


00521700 
00521600 
00521900 
00522G00 
00522100 
00522200 
00522300 
00522400 
00522500 
00522600 
00522700 
00522800 
00522900 
00523000 
00523100 
00523200 
00523300 
00523400 
00523500 
00523600 
00523700 
00523600 
00523900 
00524000 
0052^100 
00524200 
00524300 
00524400 
00524500 
00524600 
00524700 
00524b00 
00524900 
00525000 
,00525100 
00525200 
00525300 
00525400 
00525500 
00525600 
00525700 
00525600 
00525900 
00526000 
00526100 
00526200 
00526300 
00526400 
00526500 
00526600 
00526700 
00526600 
00526900 
00527000 
00527100 
00527200 
00527300 
00527400 
00527500 
00527600 
00527700 
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NUMBERDFPROCFPURE 
SOPDC  ID 


SUBSTRUCTURES  ♦• 

S T AC K > CUR PENTPROCF DURE  I D#NUMBP SUB STRUCT 


END 

ELSE 

BEGI 


N 


end; 
rftu 

M"Mb 

IF  M 

N 

then 

BEG  I 

lopp 


END 

end; 

COMMENT 

THES 
INDICATFD 
FROM  BIGT 
THE  CURRF 
SACTIONC  CHFC 
COMMFN 
INSURE  TH 
ARROW  APE 
BEGIN 

INTE 
LAPE 
DFFI 

RICH 
RIGH 
LFFT 
LFET 
IF  L 

Thfn 

PEG  I 

:        loop 


enp 

ELSE 


pROCFDURESTRUCTUR 
SOpDf ST 

MUMBFRUFPRPCFOI'PF 
SOPOCST 

rnstructupfppt^tfR 
fpofreturnsupstpuc 

UMPEROFPRncFDURFSU 
UMPFROFRETURNSU^ST 

N 
: 

FOR  I  f  1  STEP  1 
IF  NOT  EOUALSTRUC 
tPROCFDMPE 

rftupnstr 
then 

BEGIN 

error; 
leavf  loop 

END;  LDOP» 


E  FOLLOWING  ACTION 
TYPE.   IF  CUPRFNT 
AB.   OTHERWISE  WE 
NT  AREA  OF  THF  SUB 
KTHATSTRUCTURFSAPE 
T   THIS  ACTION  IS 
AT  THE  STRUCTURES 
IDENTICALLY  TYPFD 

GER  RIGHTFTR^PIGHT 

L  loop; 

Ne  ERROR  =  BEGIN  E 
WRITFME 
TpTR  «■  SOPDCMSTACK 
TNUMBER  <-  JPPDCVST 
PTR  *  SOPPfMSTACK* 
Nu^PFR  *  *PPD(MSTA 
EFTK'UMBER  =  RIGHTN 

N 
J 

FOR  I  «■  1  STEP  1 
BEGIN 

IF  NOT  FQUAL 

THFN 
BEGIN 

frpow; 

LEAVE  L 
END 
FND;  LOOPt 

ERROR 


EPOINTER  ♦ 

RUCTURETAB> CURRENT  I DPTR* STRUCTUREPTR)) 

SUBSTRUCTURES  «• 

RUCTURETAP* CUPRFNT I DPTR>NUMPRSUBSTRUCT) 

«•  *OPD  CM  STACK*  STOP,  STRUCTURFPTR); 
T  URF  S*$OPD(MSTACK»  STOP  »N|JMBRSUR  STRUCT); 
RSTRUCTUPFS  a 
RUCTURES 


UNTIL  NUMPFROF RE  TURN SUB STRUCTURES 
TURFTAR 

STRUCTURFP0INTER+1-I# 
UCTUREPOlNTER  +  1-n 


DO 


S  ALL  CHFCK  THAT  AN  ID  IS  OF  THE 
STRUCTllRFPTR  =  0  yZ    GO  RIGHT  TO  IDSTACK 
TRY  TO  EIND  THE  ID  IN  STRUCTURETAB  In 

structurf; 

THESA^E  )« 

INVOKFD  IN  A  STRUCTURE  ASSIGNMENT  TO 
ON  THE  LFFT  And  RIGHT  OF  THE  ASSIGNMENT 
AND  IDENTICALLY  STRUCTURED  ; 

NUMPER»LFF TPTR, LEFT NUMBER; 

RRMS  "STRUCTURES  DO  NOT  MATCH."  J 

SOUT  FND  $} 

#tTOP,STRUCTUREFTP); 

ACK,STOP,hUMPPSUPSTRUCT); 

S70P-?,STRUCTUREPTR); 

CK,STPP-?,NUMBRSUFSTRUCT); 

UMBFR 


UNTIL  LEFTNUMRER  PO 
STRUCTURFTAB(LEFTPTR+1-I»RIgHTPTR+1-I) 


OOP 


005?7600 
)00527900 
00526000 
00526100 
00526200 
005?6300 
00526400 
00526500 
00526600 
00526700 
00526600 
00526900 
00529000 
00529100 
00529200 
00529300 
00529400 
00529500 
00529600 
00529700 
00529600 
00529900 
00530000 
00530100 
00530200 
00530300 
00530400 
00530500 
00530600 
00530700 
00530600 
00530900 
00531000 
00531100 
00531200 
00531300 
0053U00 
00531500 
00531600 
00531700 
00531600 
00531900 
O0532000 
00532100 
00532200 
00532300 
00532400 
00532500 
00532600 
00532700 
00532600 
00532900 
00533000 
OO5331C0 
00533200 
00533300 
00533400 
00533500 
00533600 
00533700 
00533600 
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END 
SECTION 

LAB 
DRP 
IF 


THE 
ELS 
PEG 


END 
WHI 
BEG 


END 

$PL 

SEX 

END 

(ACTION 

DRC 

DPL 

END 

(ACTION 

'SACTION 

isACTl  ON 

(ACTION 

FACTION 

DRU 

OPL 

END 

iACTlON 

.ACTION 

INACTION 

[ACTION 

SEX 

I  ACT  I  ON 

ACTION 

ACTION 

ACTION 

ACTION 

ACTION 

ACTION 

IACT10N 

ACTION 

'ACjION 

PEG 


END 
ACTION 
ICTION 
ACTION 

SEX 
ACTION 


t 

(  CLOSELAPEL 

COMMENT   THIS  ACTION 

EL  IS  NOT  THE  RIGHT 

P 

(OPD(HSTACK>(TnP#ENT 

AND  (OPD(IDSTACK#(Tp 

N 

E 

IN 

E.RPMS  "THIS  CLOSIN 

WRTTEHESOUT; 

; 

LL  JOPD(LEAVESTACK*( 
IN 

BRANCHC*OPD(LFAVFS 
Cl'RRENTADDRES 

SPOP(LEAVESTACK); 
I 

P(LEAVE?TACK)J 
EC(ENDOFBLOCK); 
J 

(CDDEABS)' 
P 
PATOPCARS"); 

\ 

(CODEACCESSDECLARATI 

(CODEACCESSIDACTUALP 

(CODEALLOCATEFUNCTIP 

CCODFALLOCATEPROCFDli 

CCODEAND)  t 

P 

RATORCAND"); 

; 

CCOpFANY)' 
(CODFANYDEFAULT)« 
(CODEbEGlNAPPENO)  J 
CCODEbEGlNBOOLEAMlNI 
FC(CODFPFGlNlNTEGERT 
(CODFBEGIN'CAUSE)  : 
CCOpFPEGlNQOSTATEMEM 
(COPFBEGINFVENTACTIO 
(CUrFPFGlNFOREY)  : 
(CODFBEGIN'FORLIMIT)  J 
(COrFBEGlNFPRSTEP)l 
(CUpFf-EGlNFORUNTlL)l 
f CPDEBEGlNFPRhHTLE)l 
(COpFbEGlN'lNlTIATF)  j 
(CPDFBEGIN'INTEGERINJ 
IN 

H.TEGER  I»J; 
I  ♦•  CtiRPFNTMAXIMUM 
J  «•  I  +  IOLISTCPUNTF 
FpR  I  <-  I  STEP  1  |i 
COUPLFCNAML-CALL" 
} 

(COPFBFGIN'LOWERPOUNP 
(COpFBEGTNPATTEPNINT 
CCPpFBFr.INPPINTFRINI 
EC(CPDEPf  GIMNTFGFRI 
(CODFBEGINPROCEOUREP 


)» 
REMOVES    A    LABEL    FROM    THE    IPSTACK. 
0»^E>     IT    TRIES    TO    FIX    IT    UPJ 

RY)    =    (PP0(IDSTACK»(TPP>6IGTABPTR) 
P*TYPE)    =    LAPL 


G    LAREL    DOES    NOT    MATCH    THE    OPENING 


TPP'MARK)    *    \    DO 

TACK>(TOP»ADDRESS)# 
S*"BRANCH")J 


ON)» 

APAMETEP) t 
N)  I 
RF)  J 


TIALIZATIPN) ! 
NlTIALIZATlPfOJ 

T">» 
NPECL)  t 


TIALIZATIPN)! 


dtsplacemfnt  -  i  pl  i stcountfr j 
r-i; 

NTIL  J  PO 
,CURRENTLEVEL> I>"  ")J 

)  t 

TIALIZATIPN)» 
I  I ALIZATIPN)  t 
NilTIAL  IZATIPN)  J 
UPY)  I 


v  00533900 
0053^000 
IF  THIS  00534100 
00534200 
0053^300 
00534400 
0053^500 
0053^600 
00534700 
00534800 
LApEL.  "J00534900 
00535000 
00535100 
00535200 
00535300 
00535400 
00535500 
00535600 
00535700 
00535600 
00535900 
00536000 
00600100 
00600^00 
00600300 
00600400 
00600500 
00600600 
00600700 
00600800 
00600900 
00601000 
00601100 
00601200 
*  00601300 
00601400 
00601500 
00601600 
00601700 
00601800 
00601900 
00602000 
00602100 
00602200 
00602300 
00602400 
00602500 
00602600 
00602700 
00602600 
00602900 
00603000 
00603100 
00603200 
00603300 
00603400 
00603500 
00603600 
00603700 
00603800 
00603900 


2]A 


tACT  I 

SACT  I 

t  ACT  I 

tACTl 

f 

tACTl 

tACTl 

SACT  I 

tACTl 

tACTl 

tACT  I 

tACTl 

tACTl 

tACT  I 

D 

S 

$ 

t 
S 

F 

tACTl 

$ACTI 

SACTI 

D 

0 

E 

SACTI 

D 

I 

C 


L 

N 

E 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

tACTl 

D 

0 

F 

tACTl 

D 

0 

E 

SACT  I 

S 

tACT  I 

b 

0 

E 

tACTl 


PNC 
ONC 
ONC 
ONC 
EXF 
OM 
OM 
P.NC 
OM 
ON  ( 
ONC 
ONC 
ONC 
0  N  C 
ROP 
POP 
POP 
POP 
DEC 
NO) 
ONC 
ONC 
ONC 
ROP 
PER 

no; 

ONC 
ROP 
F  N 
OOP 


COpFbEGlNPROCESSTERMTNATE)! 
COHFE'EGlfl'RESTART)  t 

COrFBEGlN'SPAhN)  I 
CODFtEGlN'STRlNGIMTlAl  IZATlOM)t 

C(CODEPFGlNlNTFGERIN!TlALlZATIOh')J 

Ct)CFbEGlNSTRlNGLFNCTH)« 

f  OdFBEGJNSTKINGsIZF)  ' 

COpFBEGlNSTPbCTOREPFCL)» 

COrFfcFGF'SOSPEND): 

CODF bEGlNUPPERROUNO)  I 

CODFBEGINVALL'E)« 

CODFPEGINWAIT) J 

CODFEEGINWHILESTATEMFNT)! 

CODEPLfCKEND): 

CBLOCKSTACK»CURRENTMAxIMOMOISPLACEMENT)l 
CHOCK  STACK/CORRFNTAODRFSS)! 

(block  stack*cuprentsegmem)j 
rccurrfntleved; 

codfboolfanactualpara meter)! 

CLOFBOOLFANFONCTION) : 
CC'OEBOOLFANVALUECALLI  t 


AST 

OKA 
NDJ 
ONC 
ON  C 
ONC 
ONC 

OM 
ONC 

ONC 
ONC 
ONC 
ONC 
ONC 
ON  C 
RIP 
PEP 
no; 

ONC 
ROP 
PER 
NO  » 
OM 
EM 
ONC 
ROP 
PER 

no; 

ONC 


ator("load-booleanw)j 

codfboolfanvariarlf)» 
ot  n0namecall  then 

LEc,,NAME-CALln»SOPDClDSTACK>T  «■  SOPDCBIGTAB* 
tOPDCMSTACK/tTOP'FNTRY),lDSTACKPTR),LFVFL)* 
tpPDCjDSTACK»I, DISPLACE ME NT)>PPI NT ID)J 

typf  ♦•  pool; 
necall  <-  false) 

codfbranchbackfor) i 

codfbran'chbackforttmes)» 

codfbpanchpacktoooiffalse)! 

CODEBRaMCHBACKTOWHtLE)! 
COpFBRANCHPASTELSE)! 

COpFr<RANCHPASTSTATFMENTlFFALSE)» 

COpFBRANCHPASTTPFNIFPALSE): 

COPFCASFPRANCH) j 

COPFCASFSTATEMFNTEN'tPY)! 

COPFCASEWAITSTATEMENT)! 

COPECAUSFTERMIMATE) I 

COpECDlV) l 

AT0PCMcniV"); 

COpFCHARSIZEOFSTRlNG) « 

a  t  p  p  c "  r  h  a  r  s  i  z  e  w ) ; 

COpFCDpFACTOALPARAMETFR)« 
NTICTFST  *  FALSE; 
CODECOMVERT)! 

ATpP("TPANSLATEM); 

COPFOFCI ARATION) J 


00604 
00604 
00601 
00601 
00604 
00604 
00604 
00604 
00604 
00604 
00605 
00605 
00605 
00605 
00605 
00605 
00605 
00605 
00605 
00605 
00606 
00606 
00606 
00606 
00606 
00606 
00606 
00606 
00606 
00606 
00607 
00607 
00607 
00607 
006C7 
00607 
00607 
00607 
00607 
00607 
0060b 
00606 
00606 
00606 
00606 
00606 
00606 
00606 
00606 
00606 
00609 
00609 
00609 
00609 
00609 
00609 
00609 
00609 
00609 
00609 
00610 


000 
100 
200 
300 
400 
500 
600 
700 
600 
900 
000 
100 
200 
300 
400 
500 
600 
700 
600 
900 
000 
100 
200 
300 
400 
500 
600 
700 
800 
900 
000 
100 
200 
300 
400 
500 
600 
700 
600 
900 
000 
1  00 
200 
300 
400 
500 
600 
700 
600 
900 
000 
100 
200 
300 
100 
500 
600 
700 
600 
900 
000 
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COHMFM   THIS  ACTION  SETS  CURPENTDECLT  YPF  =  OSLCOPE  TO  INDICATE 
THAT  A  CODF  DECLARATION  IS  BEING  SCANNED  ; 
CUHRENTDECl  TYPE  ♦■  OSLCPDFJ 
SAC  I  I  ON ( C ODE DFC TO  INTEGER)  J 
DROP 

opt r at pr ( "con vertdfc i m alto  integer"); 

end; 
jactlonccopfdefaultaccesslpactualpara meter)! 
sactlon(copfdffaultropl  eanactualparameter)! 
iactlon(codfde fa ultcodfactoal parameter)! 
sactlonccodfdefat'ltfventactualparameter)  i 

iACTlONCCOrrOFFAULTFILFACTOAl-PAPAWETFR)! 

$actlon(codfdef a ult for  increment)! 
sactionccodedefaultintfgfractualpapa^ftfr)! 
jactlon(copfdefahltpattepnactualpapa meter)! 
$action(codfdffaultpointeractualpapamftfr)i 
factlon(codedefaultproceduretdactualparametep)! 

SfiCTlON(COpFDEFAULTPRPCFSSACTUALpARAMETER)! 

J.ACTIONCCODECEFAULTSTRIMGACTUALPARAMFTER)! 

SACTlON(COrEPEFAl'LTSTROCTUPEACTUALPAPAMETER)! 

SACTION(CODEDEFAULTTERMINATE) « 
tACTlON(COpEDIVlDE)! 

DROP 

OPtRATORCDlVIDE")! 

END  I 
S AC T  I  ON ( C ODE F NO  APPEND)! 
SAC  HON  (CODE  ENPFOOLEANINITIALIZATION)! 

BEGIN 

integer  ii 

fop  i  ♦  1  step  1  until  i  pl  i stcpunter- 1  po 

operatprcstore-bpol  fan-part  i  al-destruct  i  vew); 

OpERATORCSTORE-BOOl  EAN")) 

end; 

SACTlON(CODEENpPRANCHlFFALSE)« 

SACTION(COdEENPPRANCHPASTElSF)!  * 

SACTION(CODFENDCAUSE)! 
SACTIONCCODFENDCAUSETFRMINATF)! 

SACTlON(CODFENpEVENTACTlONDECL)!  * 

SACTlOMCOOFt  NPF  ALSE  BR  Ak.CHP  ASTTHFn  )  1 
SACTIONCCODEENPFPRBY)! 
SACTION(CODFENDFPRLIMIT)! 
SACTlON(COpEENpfPRLIST)  ! 
FACTION (COP FEND FOR STEP) ! 
tACTlON(COpEENpFOR UNTIL)! 
SACTlON(CODEENpFnRWHILF)! 
fACTlON(COpFtNpINlTlATE)! 
SACTlON(COpFENpINTEGERTNlTIALlZATlPN)! 
BEGIN 

intlgfr  i; 

fpp  t  *  1  step  1  until  i dl i stcpuntfr- 1  po 
operatpr("stope-lntfger-partial-destructive")j 
opfrator(" st  ore- integer"); 
end; 
i*  ct i  on ( cope enpm a tch assignment) i 

*ACTlON(COPFENpPFCASE)! 

*ACTI0N(C0PFENPPFCASLWAIT)1 

tACTlON(COPFENDOFEXPCASE)! 

DROP 

FOR  I  «-  CURPENTCASECOUNT  STEP  -1  UNTIL  1  DO 

BEGIN 

RRANCH(CURRENTAPDPESS>SpPP(CASFSTACK>JTpP-(2xI)),t.pFtANCH"); 


006' 
006; 

006: 
006: 
006; 
006: 
006: 
006: 

006' 

006: 
006: 
006: 
006: 
006: 

006 

006: 
006: 
006: 
006: 
006: 
006: 
006: 
006: 
006: 

006; 

006: 
006: 
006: 
006: 
006: 
006: 
006: 
006: 
006: 
006: 
006: 

006 

006: 
006: 
006: 
006: 

006- 

006: 
006: 
006: 
006: 

006 

006: 
006: 
006: 
006: 
006: 
006: 
006: 
006: 

006' 

006: 
006: 
006: 
006: 
006: 


SIN 
BRA 

END] 
BRAN'Ch  f  * 

$nF 

P1  T  I  A  S  F  S  T 
CUhRfcMC 

E  N  i  ; 
jactipm  copf 

S  A  C  T 1 0  N  (  C  0  p  F 

BEGIN 

INT 

fpp 
opr 

OFF 


CRCCURPE  NTAPPRFSM) 

NCP'(?OI  Li(CASFSTAf.K»STOP*l-(?xT  ))> 

?ll'Ji>(f  ASF  STACK  >i>TOP)+CURRFNTC  AS  FCOUNT*  "BRANCH")) 

OPD( CASE  STACK'? TOP-lr(?xCURRFNTCASECCUNT))* 

U(CASFSlACK,!;TpP),"HDFXFO-PRANCH")) 

ACK    *■    PUASESTACK    -    {  2xCURRFNTC  ASECOLlNT  +  3  )  ) 

ASFCPlJNT    <-    snPDCCASFSTACK»STOP+l); 


FNL 

jACTIPf 

$act I cr 

I A  C  T  I  0  i 
S ACT  101 
$  A  c  t  I  n  f 
SACTIOK 


f  CGpF 

( cnoF 

(COpF 
f  (  DDF 
CCDDF 

(  CDpF 


BEGIN 

INT 

FOR 

OpF 

OpE 

FNt'l 

SACT IONCCDPE 

SACTlDNfCDpF 

»  A C  T I  0 N  f CUpF 

fACTlDKfCDrF 

I A  C  T  I  0 1,  (  C  0  P  F 

*  ACT  I DK (COPE 

RELDF    f 
SACTICiMCUDF 
DROP 
DPI PATPP 

END) 

S  A C  T  I C: N  f  COpF 
i  A  C  T  1  P  N  (  C  CJ  P  F 
SACT  nw<  rcopF 
SAC1 iur (CDPF 
SACTlONCCOpF 
D  R  L  P 

5  P b S  h  c  c  A 
I P  U  S  H  (  C  A 
DPERATCP 
CUKREKTC 
J  PL SHCC A 
f  N  f,  I 
$ACTlONfCOpF 
DROP 

J-PDSHCCA 
DPI FATPP 
fPl-Sh(CA 
J  I  N  C  R  (  C I ' 

r  ND) 

t  ACT  H  t-   (COpF 
PROP 


t  NPF  A  TURN  INITIAL  I  7  AT  I  ON)  » 
ENpPDlNTERlNlTlALlZATiriN)! 

EGFR  I; 
T  <  1  STpP  1  I'NTTL  IDLTSTCPUNTfR-1  PD 

R ATPR("ST0PF-Pp INTER-PART  I Al -DESTRUCTIVE")^ 
RAT OPC "STORE-POINTER")) 

ENpPRDCEDUREBOpY): 

ENppROCE SSTERMINATE)  I 

ENpPESTART)J 

ENpSKIPF ACTOR)  : 

E  N  P  S  P  A  W  N  )  : 

ENPSTF-INGINIT1ALIZATI0N)! 

EGEP  It 

I  «■  1  STEP  1  I'NTjL  IPLISTCOUNTfR-1  DO 
RAT0PC"STDPE-INTFGFR-PARTIAL-DESTRUCTIVE"); 
RATPRH'STOPE-lNTFGEP" )) 

ENpSTPUCTUREDFcDI 
ENDSUSPENO): 

ENPVALUE  )  I 

ENPWAIT): 

END?NDABYSKIP)  t 

EQL  )  « 

3) 

EOV)»  * 

(  "  F  0  V  "  ) ; 

EVf NTACTUALPARAMFTER)! 
FVFN'  TLIST)* 
F XCFPT): 
EXCFPTDEF AULT)  t 
f  ypCASEBHANCH)  t 


SF STAC K>CURRENTC ASFCPUNT)) 

SfsTACK^CURRfNTAPPRFSS)) 

(«***  ( INDFXED-RPANCH  INSTRUCTION 

ASprnuNT  «■  o; 

SrsTACK#CURRENTAPDPESS); 
EVPCASEENTRY)« 


WILL  BE  HERE)  ***")) 


SFSTACK»CUPPFNTAPPRFSS)J 
("***  (PRANCh  TmSTWUCTIOn 
SFsT^CK.  CUR  REM  ADDRESS)) 
PPF  NTCASECPUNT)) 

F  XPSKIPE LSF)  I 


WTLL  BE  HFPE)  ***")) 


006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
006 
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16200 

16300 

16400 

16500 

16600 

16700 

16600 

16900 

17000 

17100 

17?00 

17300 

1/4  00 

1/500 

1/600 

17700 

17800 

17900 

18000 

l«lOO 

16200 

163P0, 

16400 

18500  ' 

186P0J 

15  7  00,; 

16600ij 

18900 

19000, 

19100 

19?0f 

19300 

19400^ 

19500;1 

19600! 

19  700 

19800; 

I9900r; 


00620000: 

00620100! 

00620200: 

00620300 

00620400p! 

006205001 

00620600 

00620700 

00620800i 

00620900 

00621000 

0  0  6  p  1  1  0  0 ! 

00621200 

00621  300i 

00621400' 

00621500, 

00621600 

00  6  217  00s 

00621600 

00621900| 

00622000, 

00622100; 

00622200' 
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BRANChC?OPO(EXPRSNlF$TACK»STPP)*CURRENTADDRFSS+l* 
MPPANCH-IF-FALSF")J 
(tyPRSK'IFSTACK#«TOP)    *    CpRRFNTAPDRESS; 
ATflK"***    (BRANCH    INSTRUCTION)    WILL    PF    HFRE)    ***"); 


SAC 


SAC 


SAC 
f  AC 


SAC 
SAC 
SAC 
SAC 
SAC 
SAC 
SAC 
ISAC 
SAC 

<,AC 

>AC 


5AC 
'-AC 

Uc 


AC 


SOPO 
OPLR 

end; 

TlONC 

DROP 
BRAN 
SPOP 
END) 
TIONC 
DROP 
SPOS 
OPER 

end; 

TIONC 

TIONC 

DROP 

OPER 

end; 

TIONC 

TIONC 

TIONC 

TIONC 

TIONC 

TIONC 

TIONC 

TIONC 

TIONC 

RELO 

TIONC 

RELO 

TIONC 

DROP 

OPER 

END; 

TIONC 

TIONC 

TIONC 

DROP 

OPER 

END; 

TIONC 

DROP 


COnFEXPSKIPPASTELSFFOUND) t 

ch c *opd ( exprsn i f stack* stop)* current  address* "branch") j 
(exprsmfstack);.  . 

coneexpskipthenonfalse)! 

h(FXPRSNlFSTACK*CURRFNTADDRESS)l 

atprc"***  (branch-if-fal.se  instruction  will  be  hfre)  ***")* 

cddfexpskipt[)elsefdund)« 
codffalse)! 

atprcfalse"); 

CODFTIElOLENGTH)t 
CGpFF  IFLDSTART)« 
CODEFIlFACTUALPARAMETER)! 
COPFF  IXEDMATCH)! 
CODFFLOATlNGhATCH)! 
CODFFnRCOUNTFR) t 
COpFFPRLlSTEXP): 
COnFFORVARIAbLF) J 
CDDFGFO) l 

P  <-  4, 
CODFGTP)! 

p  «-  5; 
copeimpji 

ATpRC^lMP");  * 


COpFlNlTlALFORASSlGNMFNT)J 

COpFlNTEGERACTUALPARAMETER)! 

COpFlNTEGERADD)» 

ATpR("ADDH); 

CODFINTEGERCONSTANT)! 

0PERFIRSTPART*"INTEGFR-1 I TE PAL-CALL   ". 

PRTNTlPI 

OPERLASTPART; 


AC 
AC 


AC 

!ac 

AC 


END; 

TIONC 

TIONC 
DROP 
OPER 
END; 

TIONC 
OUTP 

TIONC 
DROP 
OPER 
END; 

IIONC 
DROP 


COpFl 
COpF  I 

; 

AIGPCMULTIPLY"); 


NTEGERFUNCTTON)  I 
NTEGERMULTIPLY)! 


COPE  INTFGFRRELPP) « 
UTFFLPPCINTEGFR"); 
COpElNTEGERSUBTRACT) t 

ATpP("SUBTRACTM); 

COPFINTEGERVALUECALD* 


00622300 
00622400 
00622500 
00622600 
00622700 
00622600 
00622900 
00623000 
00623100 
00623200 
00623300 
00623400 
00623500 
00623fc00 
00623700 
00623B00 
00623900 
00624000 
00624100 
00624200 
00624300 
00624400 
00624500 
0062^600 
00624700 
00624600 
00624900 
00625000 
00625100 
00625200 
00625300 
00625400 
00625500 
00625600 
00625700 
00625600 
00625900 
00626000 
00626)00 
00626200 
00626300 
00626400 
00626500 
00626600 
00626700 
00626600 
00626900 
00627000 
00627100 
00627200 
00627300 
00627400 
00627500 
00627600 
00627700 
00627600 
00627900 
00626000 
00626100 
00626200 
00626300 
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DPE.RATC1R(BlPAD-lNTF6FR"  >  J 

fnd; 

SACIIOMCOpElNTFGFRVARlABLE  )  I 

OR  LP 

IF    NOT    N'ONAPECALL    THEN 

COlPLFC*,NArF-CALLM>*PfJn(  IOSTACK»I  «■  SOPDCBIGTAB* 
*OPLCK'STaCK>STOP,fK'TRY),IPSTaCkPTR)j.LfVfL)> 
*OFD(inSTACK»I»PlSPLACEMFKiT)#PPINTlD>; 

last  type  «-   im; 

NONAhFCALL    *    F  A  L  S  F  i 

f  n  i ; 

SAC7IDKCC0DF4NT6PFR0MSTRING)  : 

DROP 

OPtRATDR(Mcn'V!VFRTSTPINGTPlNTFGFR"W 

E  M  L ; 
tACTlONCCODFlNTGRTOBOOL)! 

DRLP 

OPFRATpP("cnNlVFRTINTFGFRTOBOPLFAMM); 

fnl; 

tACTlGN(CODFINTGRTODEClMAL)  I 

OR  LP 

operatop(mconvfrtintfgfrtodfcimal,'); 
end; 
sactionccopfintgrtostrimg) j 

DRLP 
OPERAToP("CPNVERTINTFGFRTnSTPlNG")J 

end; 
sactionccodflfngthofstrimg): 

DROP 

OPFRATOP(wLE"N:GTHw)l 

ENLJ 
tACTlON(CODFLFO) * 

RELPP    <-    2\ 
SAC1IOKCPPFLONFTFRMINATE): 
$ACTlON(CGnFLnwER) I 
SACTILS (COnFLOwER BOUND)! 
$ACTlON(COpFLSS) « 

RELPP    <-    l;  -r 

*ACTlONCCODFMATCHASSlGNwFNT)» 

$ACTlON(CDDFMOD)» 
DRLP 
OPtRATr>R("MPPM)J 

FNLj 
*ACTlON(CDDFHT)» 
DRLP 

OPERAtorcmT"); 

FNl  J 

J.ACTIPNCCODENEGATIVE): 
DRLP 
OPE  RATnRC"NEGATEw) ) 

enl; 

SACTlON(CLpFNEO) ' 

RELPP    «-    6; 
J  ACT  lOMCOoFNOMATCHASSTGNt-TNT)  J 
JACTlONfCLoENONDFSTRLCTHPOLFANSTORF)t 

DROP 

tDECRCCl'RPFNTADDRESS); 

x op fratprcstpre-ppo lean -partial-destructive"); 
end; 

JAC1  ILNCCLpENOh  DE'STNUCTirTFoEPSTPRF)  I 
DROP 


00626400 

00626500 

006?6600 

00626700  | 

00626800 

00628900 

00629000 

00629100 

00629200 

00629300 

00629400 

00629500 

00629600 

00629700 

00629600 

00629900 

00630000 

00630100 

00630200 

00630300 

00630400 

00630500 

00630600 

00630700 

00630600 

00630900 

00631000 

00631100 

00631200 

00631300 

00631400 

00631500 

00631600 

00631700 

00631600 

00631900 

00632000 

00632100 

00632200 

00632300 

00632400 

00632500 

00632600 

00632700 

00632600 

00632900 

00633000 

00633100 

00633200 

00633300 

00633400 

00633500 

00633600 

00633700 

00633600 

00633900 

0063^000 

0063MP0 

00634200 

00634300 

OO6344OO 
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$DF 
XOF- 

FND 

JACTION 

DPD 

$Dt 

XOP 

END 

IACTI0N 

JACTION 

DRD 

OPE 

FND 

JACTION 

DRO 

DPE 

FND 

JACTION 

DRO 

OPL 

END 

JACTION 

JACTION 

.(ACTION 

DRO 

cot 


CR(Cl'KPFNTAtM)RESS) 
EKATPRCSTORE-INTE 

) 

(COpFNON'PESTPUCTST 

P 

cr(currfntadorfss) 
eratprcstore-stri 
j 
(copfnostepforcond 

(CODFNOT3* 
P 

ratppcmot*); 
; 

(COPEMJLL)I 

p 

RATpPCNULL"); 

J 

(COpEOR)« 

P 

RATpRCpR")! 

; 

( 
c 
c 

p 

p 


i 

GFR-PARTIAL-DESTRUCTIVE" ); 
RlNGSTOpE)t 

; 

NG-P ART  I AL -DESTRUCTIVE") J 
ITIPNA'L)! 


codepatternactual 

codfpatternmatch) 

COpFPATTERNVARlAB 


LECNAME-CALL'SSO 
l>OPD(MSTACK,STpP 
$PPD(IDSTACK*I#D 


END 

JACTION 

JACTION 

JACTION 

OUT 

JACTION 

DRO 

OPE 

END 

JACTION 

DRO 

COU 


END 
JACTION 
(ACTION 
JACTION 

;         DRO 

OPE 

END 

FACTION 

i  DRO 

spu 

iPU 

$PU 

CUR 

CUR 

SIN 

END 

FACTION 

JACTION 

JACTION 


J 
( 
C 
( 
P 
( 
P 
RATpRC'LOAD-POINTE 

; 

(COPEPOlNTERVARIAB 

P 

P 


COpFPOlNTERACTUAL 
CCJpFPOlNTFRFUNCTI 
COPEPOINTERRELOP) 
'UTpFLOPCPOINTFR* 
CDpEPOlNTERVALUEC 


»LE(,'NAmF-CALLm#$0 
(PPDCMSTACK>$TPP 
£DPD(IDSTACK*I/D 


PARAMETER)! 

t 

LF)» 

PP(IDSTACK>I  «•  SOPDCBIGTAB* 
>FNTRY),IDSTaCKPTR),LFVEL)> 

isplacement)>ppintid)j 
paramftfrm 

ON)  J 
I 

); 

AlL)i 

R")J 

LF)t  * 

Ppf JDSTACKM  *  SOPD(BIGTAB» 
*FNTRY)>IPSTACKPTR), LEVEL)* 
ISPI.ACEMENT)#PRINTID)I 


COpEPOR)« 

CODE  POST  DECLARATIONBI.OCKHEAD5I 

CODEPOwER)! 

ATpRCppWER")  f 
COpFPREPECLARATIPNpLPCKHEAD)! 


H( BLOCkSTACK#CURR 
h(PLOCKSTACK*CURR 
h(BLOCKSTACK*CURR 
ENTSEGMFNT  <-  (MAX 
{NTADDPFSS  «■  CURR 
R(CURRFNTLFVEL); 

COpFPRpCEDURElDAC 
COPEPROCESSACTUAL 
CtlpFPRpCESSDECLAR 


ENTSFGMENT)) 
FNTADPRrSSX 

EN'TMAXlMUMDISPLACEMENT)* 
IMIIMSEGMENT    *    MAX  I  MUMSEC-MENT    + 
ENT^AXIMUMDTSPLACEMENT    «-    OJ 


THAI PARAMETFR)t 
PARAMETER)  » 
A  T  I D  M )  I 


n; 


00634b00 
00634600 
00634700 
00634600 
00634900 
00635000 
00635100 
00635200 
00635300 
00635400 
00635500 
00635600 
00635700 
00635600 
00635900 
00636000 
00636100 
00636200 
00636300 
00636400 
00636500 
00636600 
00636700 
00636fc00 
00636900 
00637000 
00637100 
00637200 
00637300 
00637400 
00637500 
00637600 
00637700 
00637600 
00637900 
00636000 
00636100 
00638200 
00636300 
00636400 
00636500 
00636^00 
00636700 
00636800 
00636900 
00639000 
00639100 
00639200 
00639300 
00639400 
00639500 
00639600 
00639700 
00639600 
00639900 
00640000 
00640100 
00640200 
00640300 
00640400 
00640b00 
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J.ACT  IONCCDPF 
ftACT  IONCCCC'F 

jactionccoof 

PROP 

operator 
fnd; 

SflCTlONCCOrF 
*ACTlONCCtipF 
SACTlOMCCr.F. 
*  ACT 10N(C0rF 
I A  C  T  I  CI  N  (  C  [J  r  F 

sactjoncccce 
sactiokccopf 

DRLP 

OPERATOR 
END) 
S>ACTlON(COpF 
DROP 
OPE RAlpP 

fnd; 

iACTlONCCOpF 
SACTlONCCDpF 
$ACTlON(COpE 
I A  C  1  I  0  N  (  C  Ci  p.  F 
DRLP 

operator 
end; 

SACTlONCCDpF 
DROP 

operator 
fnd; 

SACTlONCCDpF 
SACTlOMCOpF 
4ACTl0N(C0pF 
SACTlONCCDoF 
DROP 

OPF 
PRI 

end; 

SACTlONCCOpF 
SACTlONCCOpF 
SACTlONCCOpF 

OUTPUTRF 
SACTlONCCOpF 

DROP 

OPERATOR 

FNDl 
SACTlOKclOrF 

DROP 

IF  NUT 

COUPLEf " 
SpP 
t[)P 

L  A  S  T  T  Y  p  f 

NONAMF  f A 

END; 
S  A  C  T  I  0  N  (  C  0  r  F 
SACTlONCCDpF 

DROP 

OPF  RATpR 

E  nd; 


PTRSURSCRIPTF'P)  » 
PTPl;NSUBSCRlPTFD)  » 
RDIV)  I 

("poiv"); 

RELEASE)! 

F-FTl'RNROOLFAN)  J 
RETURNIMEGEP)! 
KF'TURNPATTFPN  J  t 

rfturnpointer)« 

hETllPNSTRlMO)  $ 
SAND)  J 

(MSANDM)J 

SIf,N)  I 

("SIGN"); 

SINGLEFORASSIGNMENT) j 
SK1PFACT0PIFTRUF1 « 
SKlP2NDARYlFFAlSE)t 
SNOT)  t 

("S^OT"); 

SOR)  J 

("SOR"); 

SPAN)  : 

SPANPEFAuLT) « 
STPINGACTUA  I.  PARAMETER)! 
STRINGCONSTANT) « 

RFIRST  PART*  "STRING-LITERAL-CALL   »,««", 
NTlD>n,,";OPERLASTPART; 

•/ 

STPINGDEFAULT) J 
STRINGFUNCT10N) I 
STRINGRELOP) J 
LPpfSTRlNG'1); 
STRINGVALUFCALl ) J 

("LOAD-STRING"); 
STRINGVARIARLE) t 

NONAMECALL  THEN 

NAHE-CALLM»JiPPP(IDSTACK»I  *  S0PDCBIGTA6* 
DCF' STACK, STPP*FNTRY)#IPSTACKPTR),LFVFL)# 
UCIOSTACK#I#niSPIACEMENT)»PRINTID); 

*  str; 
ll  «•  false; 

struct ureactualparameter)! 

SXf)R)  « 
C"S*OR")j 


00640600 

00640700 

00640600 

00640900 

00641000 

00641100 

00641200 

00641300 

00641400 

00641500 

00641600 

00641700 

00641800 

00641900 

00642000 

00642100 

00642200 

00642300 

00642400 

00642500 

00642600 

00642700 

00642600 

00642900 

00643C00 

00643100 

00643200 

00643300 

00643400 

00643500 

00643600 

00643700 

00643600 

00643900 

00644000  , 

00644100  ; 

00644200 

00644300 

00644400 

00644500 

00644600 

00644700 

00644B00 

00644900 

00645000 

00645100 

00645200 

00645300 

00645400 

00645500 

00645600 

00645700 

00645600 

00645900 

00646000 

00646100 

00646200 

00646300 

00646400 

00646500 

0064660 
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SACTION 
DRO 
OPL 
F.NLj 

{ACTION 

SACTIDN 

IACTION 

DRO 

OPt 

END 

JACTION 

SCA 
CUR 
DRO 
IF 

THE 
BEG 


END 

END 

FACTION 

STR 
THE 

PRO 
DRO 


(COnETRuE)J 
P 

ratoR("tRue«); 
; 

(CODFOPPER)  I 
(CUpEUPPERBOUND)  « 
(CODEXOR)J 

p 

RATpRCxOR"); 

J 

(CURRENTACCESSID)I 

COMMENT   THIS  ACTION'  PRINTS  AN  ERROR  MESSAGE  IF  THE  I 

NNED  MS  NOT  THE  SAME  AS  THE  ACCESS  TyPE  ID  OF  THE  AC 

RENTLY  BEING  DEFINED; 

P 

sopd(blgtab*-*opd(mstack»*tnp*fntry>#  idstackptr) 
#  cuprfntproce.dure.id 

IN 

ErRMS  "THIS  IDENTIFIER  SHOULD  HAVE  pEEN  ",""», 
POINTER  CSOPD(PIGTAB,(I«-SOFDCID  STACK, 

CURRENTPROCEDUREI 

PIGTAPPTR>+1 ),SAL 
FOR  $PPD(PIGTAP*I-1,IDLENGTH),  "»",»,"; 

WRlTEMESOUT 
J 

; 

(ENDOFACCESSBODY)l 

COMMENT   THIS  ACTION  ENTERS  THE  ACCESS  PROCEDURES  IN 
UCTliRETAB  AND  POINTS  THE  STRUCTURE  POINTER  AND  COUNTE 
LIST.   FURTHERMORE,  THF  FETCH  AND  STORE  TYPES  ARE  SE 
CEDUPES  POINTED  TOCIN  STRUCTURET A R ) FOP  DOING  FFTCHES 
P 

FOR  I  ♦  1  STEP  1  UNTIL  IDCOUNTER  DO 
BEGIN 

IF  BOOLEAN(SOPrUDSTACK>STOP  +  l-I,ACCESSPROCEDU 

THEN 

BEGIN  * 

$PUSH C STRUCTURET AB,SALLOF( I DST AC K,STOP+i - 

s  i  ncr (sopnc ids tack* current  procedure  id* 

NUMBRSUBSTPUCT)); 
IF  POINTERCJOPDCBIGTABj- 

CJ  *■   sopdc idstack,stop+i- 

BIGTABPTR)  +  1  ),* 
=  "FETCH"  AND  «OPP(  BI  GTAB#  J-l  »  IDLENGTH 
THEN 
BEGIN 

IF  S OPD ( STRUCTURE  TAR, ST OP 'NUMPROFP A R 

THEN 

BEGIN 

SENTFP(IDSTACK,CURRFNTPPOCFOURE 
FFTCHPROCEDUPE:  PTSTRUCT 
FETCHTYPFt 

SOPDCSTRUCTURETAB** 
END 
ELSE 
BEGIN 

errms  "a  fftch  procedure  may  ha 

"no  parameters. "; 
writemesout 
end; 


D  JUST 
CESS  TYPE 


Dp 
L>> 


AN  ARRAY 
R  FIELDS 

T  and  the 

AND  STORE 


RE)) 


i)); 


I* 

ALL)) 
)  =  5 


MS)  s  1 


ID> 
URETAB-1* 

TOP, TYPE) 


VE  "* 


00646700 
00646600 
00646900 
006/17000 

00647100 
00647200 
006/|?300 
00647400 
00647500 
006  4  7  600 
00700100 
00700?00 
00700300 
00700  4  00 
00700500 
00700600 
00700700 
00700600 
00700900 
00701000 
00701 100 
00701200 
00701300 
00701400 
00701500 
00701600 
00701700 
00701B00 

IN00701900 

AT00702000 
00702100 

S;00702200 
00702300 
00702400 
00702500 
00702600 
00702700 
00702600 
00702900 
00703000 
00703100 
00703200 
00703300 
00703400 
00703500 
00703600 
00703700 
00703600 
00703900 
00704000 
00704100 
00704?00 
00704300 

)  00704400 
00704500 
00704600 
00704700 
00704bOO 
00704900 
00705000 
00705100 
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END 

ELSF 

IF    POINTE"P(*OPD(BTGTAR#J>$ALL>)    =    "STOR 

AND    K)PD(BIGTAP*J-1#IDLEKGTH)    =    5 
THEM 
BEGIN 

IF    SPPD(STRUCTURETA6**TPP>NUMBROFP 

THFN 

BEGIN 

SENTEPC !DSTACK»CURRFNTPRnCFDU 

STOREPROCEDL'RFl  ptstru 

STOPETYPFI  *rPD(STRUCT 

JOPD(S 

s 

FORMAL 
TYPE)) 
END 
ELSE 
BEGIN 

FRRKS  "STOPE  PROCEDURES  APF  A 
"TO  HAVE  AND  MUST  HAVE 
"ONE  FORMAL  PARAMFTER." 
WRITEMESOUT 


E" 


A  P  N  S  ) 


RF  ID' 

CTURETAB-1* 

llKfTAB* 

TRUCTU 

TUP* 

PARMPT 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


RETAIL  00 

00 

R)  +  i' 


LLPWED 
FXACTL 

; 


Y  " 


END 


END 


end; 


END) 


topd(ldstack»currfntprocedureld/structupeptr) 

ptstructurf  tapm) 
sfxec(FNdofprocfdurfbody); 

END) 
tACTlOK(ENDOFACCESSHEADIMG)» 


CDMMFNT 
A  CHFCK  IS 
DROP 

FOR  I 
BFGIN 


THIS  ACTION  CLEANS  UP  AfTFR  AN  ACCESS  HFAD 
MADE  TO  INSURF  THAT  ALL  FORMAL  PARAMETERS  W 

♦  1  STEP  1  UNTIL  IDCOUNTFR  DO 


ING 

FRF 


OF 


; 


(PlGTA 

L))FOR 
ABPTR) 

; 


SPUSHCSTRUCTliRFTARtSALLOFCIDSTAC^^TOP  +  l-n) 
TF  NOT  BOOLE"aN(SOPDCIDSTACK>STOP*HaSBEENSPFC 
THEN 
BEGIN 

ERRMS  "FORMAL  PARAMETER  ",     PniNTER($PPD 
f.OPDflDSTACK»$TPP,BlGTAPPTR)  +  l/SAL 

sopdfplgtap>sopp(idstack,$top>bigt 

idlfngth)* 
"  not  declarfd  in  access  heading." 
writemesout 
end; 
end; 
if  idcounter  >  o 

THFN 

BFGIN 

f-FNTER(  ID STACK>CURR EN TPROCEDUREID. 

FORMALPARMPTRJ  PTSTPUCTUPETAB-1, 
NUMpRPFPARMSt   IDCPUNTER) 

End; 

jfxec( scan substructure); 
end; 

SACTIOKENDPF  ACCESSPARA».'F  TFRSCAN)J 

COMMENT   THIS  ACTTOh  CIFANS  UP  ArTER  THE  PARAMETFRS  IN  AN 
DECLARATION  HAVE  BEFN  SCANNED) 


00 
0  0 
0  0 
0  0 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 

CLAred;oo 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
ACCESSOQ 
00 


B* 


705200 
705300 
705400 
705500 
705600 
705700 
705600 
705900 
706000 
706J00 
706200 
706300 
706400 
706500 
706f 00 
706700 
706600 
706900 
707000 
707100 
707200 
707300 
707400 
707500 
707600 
707700 
707800 
707900 
706000 
706010 
708100 
706200 
708300 
70&400 
706500 
706600 
706700 
706600 
708900 
709000 
709100 
709200 
709300 
709400 
709500 
709f00 
709700 
709800 
709900 
710000 
710100 
710200 
710300 
710400 
710500 
710600 
710700 
710600 
710900 
7l  1000 
711100 
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SEX 
iCTION 

SFX 

iCTlON 

VAR 

PAR 

DRO 

IF 

THE 

BEG 


END 
SPO 
SPU 
SPO 
END 
CTION 

AND 
DRD 
SPC 
FOR 
BEG 


ECCFNDOFACTUALPARAMF 

(FNDTF ACCESSPROCFDUP 
CLMhFNT   THIS  TFRMlN 

fc(fndofprocfdurfpop 

(ENpOFAfTUALPARAMFTF 
COMMENT   THIS  ACTION 
IABLES  OFP  OF  ACTllAl 
AMETER  SCAN; 
P 

currfntactualparamet 

N 
IN 

ERRMS  "TOO  FEW  ACT 

WRITEMESOUT 

; 

P(ACTUALPARMSTACK>Cli 
PCACTUALPARMST  ACIOCU 
P(ACTUALPARMSTACK>CU 

J 

(ENDOFRLOCK) J 
COMMENT   THIS  ACTION 

STRUCTLiRETAB  THAT  W 
P 
P(lDCOUNTFRSTACKt IDC 

I  «-  1  STEP  1  UNTIL 
IN 

*fnter(pigtab>sppp 

semi   sopd 

If  sopdcidstack>st 

or  sopdc IDSTACK 

THFN  pTSTRUCTURFTA 
SpOP(lDSTACK)J 


tfpscan); 

EPOPY)! 

ATFS  AN  ACCESS  PROCEDURE  BODY) 

Y)J 

RSCAN)  t 

POPS  THE  A 
PARHSTACK  A 


CTUAL  PARAMETER  SCANNING 
NO'  TERMINATES  AN  ACTUAL 


EPCOUMT  <  CUPRENTNUMPEROFrnRMALPAPAMETERS 


UAL  PARAMFTERS  HAVE  PFEN  SUPPLIED, "  i 


RPENTACTUAL 

RPFNTMIMRFR 
RPENTFORMAL 


POPS  ALL  D 
ERE  DECLARE 

OUNTER)* 
IDCOUNTER  D 

( IDSTACK*ST 
(IDSTACK, ST 
[)P,PROCEDl!R 

,stop,typf) 
b  *■   soppcid 


PAPAMETERCPUNT); 

OfFORMALPAPAMFTFRSJJ 

PARAMETERLlSTPOINTER)i 


F  THE  VARIABLES  OFF  OF  IDSTACK 
D  IN  THE  LAST  BLOCK) 


0 


0P,RIGTARPTR)> 

OP,OLOSEMFlELD))J 

E)  =  l 

=STRUCT 

STACK, STOP, STRDCTPTRBEFORE)  J 


SA 


(A 


SA 


ISA 


END 

IDC 

END 

CTION 

MAY 
CUR 

CTION 
C 
EAC 
DRO 
SPU 
FOR 
BEG 


END 

IDC 

END 

CTION 

DEC 

STR 

CTION 

SWI 

SPl! 


OJ 


OUNTER  <- 
i 

(endofdatadeclaratip 
comment  this  action 
have  rfpn  left  on  ^ 
rentdecltypf  «•  curre 
currentdeclmacro  ♦ 
(enppfdeclist): 
ommfnt  reset  isdefln 

H  Ip  ENCOUNTERED.   T 

P 

SHClPCOllNTERSTACKtlP 
I  <-  1  STEP  1  UNTIL 

IN 

SFNTER(BlGTAB»SnPD 
jSDEFINEDt 1 > 
ISPEINGDFFINF 

J 

OUNTER  «■  0; 

J 

(endpfentirestructup 
commfnt  this  action 
laration  has  been  sc 

UCTliPE  ISOWN    «-    FALSE) 

cenppf  fopmals) i 
comment  this  action 
tchfs; 

P(f[lPMALSWITCHSTACKi 


N1  I 

CLEANS  UP 
HILF  SCANNI 
NTDFCLOWN  <- 

CURRENTACC 

ED  AND  ISPE 
HFN  PUSH  TH 

COUNTER)* 

IDCOUNTER  D 


ANY  OWN/  NODE*  ETC.  FLAGS  THAT 
NG  A  DATA  DECLARATION  J 

CURRFNTDECLNODF  <• 
ESSID  «-  0) 

INGDEFINFD  BITS  IN  BIGTAB  FOR 
E  ID  COUNT  J 


0 


(IDSTACK»*T0P+1-I#BIGTABPTR)* 
D«0)J 

edeclarati0n3  i 
cleans  up  after  an  entire  structure 
anned; 

resets  all  formal  parameter  scanning 
scannjngfprmalparamftfrdeclaratipns); 


0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

007l 

0071 

0071 

0071 

0071 

007i 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 

0071 
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*ACTI0MENPPFPR0CEDUREP0DY)1 

C[,^'FM  THIS  ACtTON  POPS  THE  F 
RESETS  IDSTACK  TO  ITS  CONDITION  PR 
DROP 

JPUP(  PROCEDURE  I  OST  Ac  K»CIJPRENTPP0CE 
SF.XEC(F^OOFSTRUCTURE  DECLARATION)! 
$EXEC(FNDnFSTRUCTURF DECLARATION)) 
F  N  D  \ 

sactiuncenddfppocfdurehfadtng): 

comment  this  action  tests  that 
declarfd  and  does  an  end  of  block 
procedure  pody.   it  also  checks  th 
headings  are  compatiblf  with  the  f 

DROP 

FOP  I  «■  1  STEP  1  UNTIL  IDCOUNTER  D 

BEGIN 

SpuSH(STRUCTURFTAp,SALLOF(lDS 

if  sopd( idstack>stop*hasbeens 
then 

BEGIN 

ERPMS  "FORMAL  PARAMETER 
"HEADING."; 

writemesout; 

end; 

END! 

IF  IDCOUNTER  >  0 

THEN 

BEGIN 

SE NTERC IDSTACK, CUPRFNTPROCEPU 
FOPMALPARMPTR 
NUM6P0FPARMS  t 

end; 

if  $opd(bigtab,$opdctdstack,currfn 

fopwarddefined)  =  1 
cokment   note.  that  fop  w  a  rdde  f  i  nfd 
OLDSEMFILLD  or  previous  DEFINITION 
THEN 

BEGIN   COMMFNT  CHECK  THIS  DUDE  OUT 
FORWARD  DEFINITION) 
IF  SPPDC  IOSTACK#CllRPENTPRPCFD 
THEN  NDFORWARDMATCH 
ELSE 
PFGIN 

LAPEL  LOOP) 

I  <-  PTSTPUCTURrTAR) 

J  <■  fOPDfIDSTACK»CURRENT 

FOR  K  <•  1  STEP  1  UNTIL  I 

BEGIN 

IF  NOT  FQI'ALSTRUCTU 


ORPAL  PARAMETER  DECLARATIONS  AND 
IOP  TO  CAl | ING  THIS  pKCCEDURF; 

D(iREID); 


all  formal  papamfters  were 
thing  pefope  entering  the 
at  forward  declarfd  procedure 
inal  declaration; 


0 


TACK,$TOP+l-I)); 
PEC)  =  0 


NOT  DECLARFD  I.N  PROCEDURE  ", 


RFID> 

)  PTSTRUCTUPETAB-1# 
IDCOUNTER) 

T  PROCEDURE^, PIGTAPPTP), 

IN  iDSTACk  IS  FROM  THE 
OF  THIS  IDENTIFIER) 

FDR  CPMPATABILITY  WITH  HIS 

UPEID/NUMPPOFPARMS)  /  IDCOUNTER 


PROCEDURE  I D/ FOPMALPARMPTR  )  +  U 
DCDUNTER  DO 

RFTABCI-K, J-K) 


THEN 
BEGIN 


NOFORWARDMATCH- 
LEAVF  LOOP 


E^D) 


END 
LOOP! 


end; 


END 

IFXECCSCANS INSTRUCT URE)) 
END) 
*ACTICMLM-.PFSTRUCTURFPFCLARATI0M>I 

COMMFNT   THIS  ACTION  TFPMlNATFS 


THE  SCAN  OF  A  STRHCTURF 


00717 
00717 
007J7 
00717 
00717 
00717 
00717 
00717 
00716 
0071b 
00718 
00716 
00716 
00716 
00716 
00716 
00716 
00716 
00719 
00719 
00719 
007]9 
00719 
00719 
00719 
00719 
00719 
00719 
007?0 
00720 
00720 
00720 
00720 
00720 
00720 
00720 
00720 
00720 
00721 
00721 
00721 
00721 
00721 
00721 
00721 
00721 
00721 
00721 
00722 
00722 
00722 
00722 
00722 
00722 
00722 
00722 
00722 
00722 
00723 
00723 
00723 


200 

300 

400 

500 

600 

700 

600 

900 

000 

100 

200 

300 

400 

500 

600 

700 

600 

900 

000 

100 

200 

300 

400 

500 

600 

700 

600 

900 

000 

100 

200 

300 

400 

500 

600 

700 

600 

900 

000 

100 

200 

300 

400 

500 

600 

700 

800 

900 

000 

100 

200 

300 

400  j 

500 

600  j 

7  00 

800 

900  : 

000  I 

100 

200 
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DECLARATI 

STACK  AND 
THE  ID  LI 
ENTRY  FDR 
OF  ID  FS'T 
THE  IDS  I 
IN  THE  SU 
STRUCTURE 
STRUCTUFE 
STRUCT  LIFE- 
ARE  PDpPE 
TO  PEIKG 


ON'  LIST,   THE  T  DL I STCOUNTER  IS  POPPFD  FROM  STRUCTURFPARM- 
IDENTICAL  FNTRTFS  ARF  MADF  IN  STRIICTURFTAP  FOR  FACh  ID  I 

ST  ASSOCIATED  WITH  THIS  STPUCTURE,   THE  RESULT  IS  ONF  ID 
THE  STRUCTURE  IN  THF  ID  STACK  AND  A  POINTER  TO  AN  APPAY 

RIES  IN  STRUCTURETAp.   THE  ID  ENTRIFS  IN  STRUCUjRETAR  ARE 

n  the  sup-structure  in  the  order  in  which  thfy  occurred 
p-structure  dfclaratipn.  shoulp  amy  of  these  ids  in 
tap  represfnt  substructures  within  the  currfntly  defined 
>   they  will  point  to  anhthfr  sur-stpuctlire  id  array  in 
tap.  pigtap  fntries  pointing  to  thf  sup-stpuctube  ids 
d  and  all  ids  in  the  current  list  of  declarations  are  set 
off  i  ned  again! 


:0MMENT 


STRUCTURF 


BIGTAB 


AdNTEGER  A,Pj  STRUCTURF  X(POINTER  LEFTjRIGHT) 
STRING  NAMF) 
STRUCTURE  ENTRIES: 

STRUCTURETAB 


IDSTACK 
(BIGTAPPTR) 


t 
I 

» 

V  ( 
Ai- 


(PIGTAPPTR) 


(STPUCTURFPTP) 


IDSTACKPTP)    J 

—  —  -  —  —  >  a  I— —  •—-•  —  . 

(SJUCT-4  FNTRIES) 

(BIGTAPPTR) 

+ .......................... .......... 

I 

V  (IDSTACKPTR) 

Bt 


->  (NULL) 
(BIGTAPPTR) 


>  AHINTEGER) 


'  + 
I 
t 

Bl(INTEGER) 


4.............. 

I 

V  (IDSTACKPTR) 

Xl 


->  (NULL) 
(BTGTAPPTR) 


XtfsTRUCT-?  ENTRIES)-- 


-  + 


(IDSTACKPTR) 
♦•->  LEFT  1  ---- >  (NULL) 

!  «  (PIGTAPPTP) 

1  ♦•----.--. ........... .......... 


NAME! (STRING) 


(IDSTACKPTR) 

♦■•>  RI6HT1— ""  — ->  (NULL) 
,  1 

I  «  (BIGTAPPTR) 

.♦».-.----......-.............., 

(IDSTACKPTR) 
••■>  NAME ,---------->  (NULL) 


'  + 
t 
1   (STPUCTUREPTR) 


I 

t 
I 
t 
t 
+...->  LEFT! (POINTER) 


00723300 
N00723400 
00723500 
00723^00 
00723700 
00723600 
00723900 
00724000 
0O72MC0 
00724200 
00724300 
0072^400 
00724500 
J00724600 
00724700 
0072^600 
00724900 
00725000 
00725100 
00725200 
00725300 
00725400 
00725500 
00725G00 
00725700 
00725600 
00725900 
00726000 
00726100 
00726200 
00726300 
00726400 
00726500 
00726600 
00726700 
00726600 
00726900 
00727000 
00727100 
00727200 
00727300 
0072/400 
00727500 
00727600 
007277C0 
00727600 
00727900 
0072b000 
00726100 
00728200 
00726300 
0072^400 
00726500 
00726600 
00726700 
00726600 
00726900 
00729000 
00729100 
007292C0 
00729300 
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RIGHTtCPDlNTETR) 


WHL 
ENT 
THE 
HAV 
WIL 
DRL 
SPL- 
SPl 
JPCj 
*P0 
IPL 
SPG 

FOR 
REG 


N 

RY 
1 
F 
L 
P 

P( 
P( 
PC 
P( 
P( 
P( 

cc 
I 

IK 


this  action  is  complete,  the 

fpr  fach  id  in1  the  id  part, 

c-stack  amd  all  ids  contained 

been  pemovfu  from  thf  stack. 


IOSTACK  KILL  CpNTA 
THFSF  IDS  WILL  RF 

WITHIN    THF    SUB-STRI 
A    COMPLFTF    STPUCTI 


IN  ONE  NEW  I 

ON  THE  TOP 
UCTURF  WILL 
RF  DESCRIPT 
EylST  IN  SThUCTURF  TAB  FOR  FACH  ID  IN  THE  ID  PARTI 


D 
OF 


structhreparmstack:currfntdfcltype);  . 
st  ructureparms  tack  scukrfntdecl  ».'acro)j 

STrLCTUREPAhMSTACKlCURRFNTDFCLNODE); 
STRUCTUPEPAkmSTACk:IDLISTCOI'NTER)J 

structureparhstacklcurrentdeclokn)) 
frpkalswltchstackiscanninoformalparametfrdeclarations)! 
mmfnt  make  fntpifs  in  structuretab; 
<-  1  step  1  until  idlistchunter  do 


END 

FOR 
BEG 


END 

BLL 

SPO 
FOR 
BEG 


END 

FNL 

SACTION 

FOR 
PAR 

out 

OUL 
STA 
DRD 
JEN 
SPL 


J 

CD 
I 

IN 


; 

CO 
CK 
P( 
I 
IN 


FOR  J  «■  1  STEP  1  UNTIL  IDCOUNTER  DO 
BEGIN 

j,push(structuretap,$all0f(idstack»*t0p  +  1-j)); 
end; 
»fnter(idstack/stop  +  l"'ldcounter-i* 

struttureptrt  pt structuret ap- 1 , 

numbpsubstruct i idcounter); 

mment  put  sen  fields  back  into  rlgtabj 
<-  1  step  1  until  idcounter  do 

j>enter(rigtar>50pd(idstack>st0p>rigtabptr)» 

semj   topd(ldstack>stop/oldsemfteld)); 
srop(idstack); 
jpecr c curre k thax i num displace me nt); 

nhent  reset  i spe ingdef ined  rlts  in  blgtae  for  all  current 

ids; 
idcdunterstack: jdcomntfr);         y 

«■  1  STEP  1  UNTIL  IDCOUNTFR  DO 

tENTER(RlGTAB*SOPD(lDSTACK>STOP+l-I>BIGTABPTR)* 
ISDEFINEDJO* 
ISPEINGDEFINEDM ); 


; 

; 

co 

L 
AN 
Ut 
HE 
Tf. 
P 
Tf 
SH 


NTFRACCESSPROCFDUPEID): 

MMEnT  THIS  ACTION  MARKS  A  PROCEDURF  TO  BE  AN  A 
ATFR  cOLLFCTirHj  HTH  STRUC  TURET  A  B .  IT  ALSO  MAK 
ETFR  FNTRy  OF  THE  FIRST  PARAMETFR.  THTS  PARAMF 
TVPF.  DOING  THIS  FORCES  LATER  SYNTAX  TO  RFOUI 
U* ME  APPFAR  IN  THE  FIRST  PARAMETER  SLOT  IN  THF 
MEN!  OR  FUNCTION  CALL; 

hfirSTACKjSTOP.ACCESSPPOCFDIlREil); 


CCESS  PROCED 
FS  A  FORMAL 
TFR  IS  THE 
RE  THAT  THF 
PROCEDURE 


( IPSTACK, 


SALI  01 
SALL  1  t 
SALl  2t 
tALL  3: 
BIGTARPTRt 


(iLDSFMFIEl  P« 


Ot 

0, 

0» 

f  I«-$OPD(IPSTACK> 

*0PDCPF0CEDURFIDSTACK»STPP)» 

BIGTAPPTR)), 
f OPDCRIGTAP* I»SEM)» 


007 
007 
007 
007 
007 
007 

I0N007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 

URE007 
007 
007 
007 
007 
007 
007 
007 
007 
•  007 
007 
007 
007 
007 
007 
007 


29400 

29500 

29600 

29700 

29e:00 

29900 

30000 

30100 

30200 

30300 

30400 

30300 

30600 

30700 

30600 

30900 

31000 

31100 

31200 

313P0 

31400 

31500 

31600 

31700 

31600 

31900 

32000 

32100 

32200 

32300 

32400  ' 

32500 

32600 

32700 

32600 

32900 

33G00 

33100 

33200 

33300 

33400 

33500 

3360C 

33700 

33600 

33900 

3^000 

34100 

34200 

34300 

34400 

34500 

34600 

34700 

346O0 

3490C 

35CP0 

35100 

35200 

35300 

35400 
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FORMALPARMl  \> 

HASPEENSPECl  i* 

TYPFl  ACCESSVAR* 

AC CFSS TYPFl  CURRENTMAX ACCESSNUMRER, 

DUMMYPAPMI  I)) 
SINCRClDCOllMER); 

end; 

$ACTlOK(ENTFRlDlNDECLSTACK)l 
DROP 

IF    SCANNlNGFORMALPARAMETERDECLARATlnNS 
THEN 
BEGIN 

IF    NOT    BOOLEANC$OPDCBIGTAR*$OPD(MSTACK*J<TOP>FNTRY)> 

JSFEINGDEFINED)) 
THEN 
BEGIN 

eprms  "this  id  is  not  a  formal  parameter.") 
writemesout 
end 

E|  SE 

begin 

senter(idstack»i«-sopdcbigtar> 

sopdcm$tacio$tpp>fntry)# 
idstackptr)* 
type!        currektdecl typf# 
nodel        currentdeclnodf* 
macro:        cuprentdeclmacpo* 
j  levflj       currentlevfl* 

dlsplacfmfntl  currentmax i mumd i splacement* 
haspeenspfci   1)) 

SlNCRCCUPRFNTMAXIMtjMDISPLACEMFK'T)) 

IF  CURPENTACCFSSID  t    0  ANO  CURRENTPECLT YPE  =  ACCESSVAR 

THEN 

BEGIN 

sentercidstack>i> 
accesstypej 
sopd ( i pst ac k> current access  i d/accesst ype )# 

STORETYPFl  * 

SOPD C I DST AC K> CURRENT  ACCESS  I D/STORF TYPE}* 
FETCHTYPFJ 

SOPD( I DSTACK* CURRENT  ACCESS  I D*FFTCHT YPE )> 
FETCHPROCEDuRFi 

J.OPD  (  I  PSTACK*  CURRENT  AC  CESS  I  D^FETCHPROCE  DURE 
STOREPPOCFOURFI 

SOPDC  I  DSTACK*  CURRENT  ACCESSID*  STORE  PPOCEDI'KF 
FETCHAUXPTPJ 

$OPDClDSTACK*CURRENTACCESSID*FFTCHAUXPTR)* 
STOREAUXPTPt 

fOPD( I DSTACK* CURRENT ACCESS  ID* STORFAUXPTR)) 
FNDJ 

sincr{ idlistcounter)! 
End 

END 

ELSE 

IF  ROO|.FAN(SOPD(BlGTAB#SOPO(MSTACK»*TOP#FNTRY)*  I  SBE  I  NGPEF I  NED  )  ) 

THEN 

BEGIN   CUMMFNT   IF  THIS  IDFNTIFIFR  HAS  ALREADY  BFEN  DECLARED  IN 
THIS  BLOCK*  THEN  PRINT  A  MESSAGE  TO  THAT  EFFECT  f 
ERRMS  "ID  USFD  TWICF  IN  SAME  BLOCK  -  IP  IGNORED"; 
WRI7EMFSOUT 
1   END 


0,073bbOO 
00735600 
00735700 
00735600 
00735900 
00736000 
00736100 
00736?00 
00736300 
00736400 
00736500 
00736600 
007367C0 
00736600 
00736900 
00737000 
00737100 
00737200 
00737300 
00737400 
00737500 
00737600 
00737700 
00737600 
00737900 
00736000 
0073&100 
00736200 
00736300 
00736100 
00736500 
00736600 
00736700 
00736600 
00738900 
00739000 
00739100 
00739?C0 
00739300 
00739400 
00739500 
00739600 

)*00739700 
00739600 

)*00739900 
00740000 
00740100 
00740200 
00740300 
00740400 
00740500 
00740600 
00740700 
00740600 
00740900 
00741000 
00741 100 
00741200 
00741300 
00741400 
00741500 
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ELSE" 

BEGI 


N 


comment  push 
rigtap  semantic 
this  data  typf. 
stack  tp  point 
tc  the  idcounte 
into  the  id  sta 
jpushc ipstack* 


sfntfrcbigtab, 


A  N 
S  Fl 
TH 
PACK 
R  TO 
CK  A 
SAIL 
$A|  L 
SAIL 
SALL 
TYPE 
PIGT 
LEVE 
DISP 
OWN  J 
NODE 
OLDS 


MACR 
SOPD 
SEMl 
ISPE 
IDST 


FW  ID  I 
FLD  INT 
FN  SET 

TO  THF 

INDICA 
T  THIS 

0» 

1  I 

2\ 

3» 

! 

APPTRt 
I  J 
LACEMENT 

J 

FMFIELPJ 


NTO  THE 
0  THF  NE 
THF  RIGT 

PIGTAB 
TF  HOW  M 
BLOCK  LE 
0* 
0* 
0* 
0* 

CURR 
SOPD 
CURR 
T:  CURR 
CURR 
CURR 
J-OPD 


ID  ST 
W  ID 
Ap  pn 
ENTRY 
ANY  I 
VFL  J 


ENTDF 
(MSTA 
ENTLF 
ENTMA 
ENTDF 
ENTDF 
(PIGT 
SOPD 
SEM) 
ENTDF 
TRY), 


ACKt   PUT  THE  OL 
AND  SFT  DEFAULTS 
INTER  IN  THF  NEw 
r     AND*  FINALLY* 
DS  HAVE  PEEK  PRO 


FOR 
ID 


0074 
0074 
0074 
0074 
0074 


CLTYPE* 

CK*STOP*ENTRY)* 

VEL* 

XIMUMDISPLACEMEN 

CLOWN* 

CLNQPF* 

AB* 

(MSTACK'STOP'ENT 

* 

CLMACRO)J 


T* 


RY) 


IF  PRJNTOBJECT 

THEN 

BEGIN 

BL ANKMESOU 
RFPLACE   P 
"  *  "  *  C 
")  = 


t; 

MESO 
URPE 
"*P0 


end; 

SINC 

if  c 

then 

BEGI 


end; 

SINC 

sue 


S0PD(PIGT 

wRItemesout; 

Rf CURRENTVAXIHU 
UPRENTACCFSSID 

N 
$ENTER( IDSTACK 
ACCESST 

sopdcid 

STORETY 
SOPDUO 
FFTCHTY 
SPPDC ID 
FFTCHPR 
S  P  P  D  (  I  D 
STOREPR 
SOPDCID 
F  F  T  C  H  A  U 

snpoc ID 

STOPFAU 
SPPDCIU 

R( JDLlSTCnUNTER 
R(  IPCOUNTFR  ) 


P»  CURR 

(MSTACK,STOP,EN 

INGDEFINFD»1* 

ACKPTRi     PTIDSTACKM); 


1 1 T  PY  n(H#CURRENTLEVFL  FOR  2    DjGlTS* 
NTMAXIMUMDISPLACEMENT  FOP  4  DIGITS* 
INTERC*OPD(PlGTAP>*PPD<MSTACK,$TDP> 

FNTRY)  +  1*$ALD)  FOR 
AR,$OPD(MSTACK*STOP>ENTRY)MPLENGTH) 


HDISPLACFMENT); 

*    0  AND  CURRENTDFCI.TYPE 


ACCESSVAR 


*I* 

YPEl 

STACK*CURRENTACCESSID*ACCFSSTYPE)* 

PE» 

STACK* CURRENT ACCFSS I D* STPRET YPF  )  * 

PFt 

STACK*CUPRENTACCFSSlP*FETCHTYPE>* 

PCFDUPFI 

STACK'CURRENTACCESSID'FETCHPPOCEDURE 

PCEDURF J 

STACK'CURREMTACCFSSID/STOREPROCEDURE 

XPTRt 

STACK*CURRENTACCESSIP*FETCHAUXPTF)* 

XPTRt 

STACK  *  CURRENT ACCESS  ID* STORE AUXPTR)) 


M 


end; 
end; 


ADD  0NF0074 
CESSED  0074 
0074 
0074 
0074 
0074 
0074 
0074 
00  7  4 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 
0074 


)> 


)' 


1600 
1700 

leoo 

1900 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
2600 
2900 
3000 
3100 
3200 
3300 
3400 
3500 
3600 
3700 
3600 
3900 
4000 
4100 
4200 
4300 
4400 
4500 
4600 
4700 
4600 
4900 
5000 
5100 
5200 
5300 
5400 
5500 
5600 
5700 
5600 
5900 
6000 
6100 
6200 
6300 
6400 
6500 
6600 
6700 
6600 
6900 
7000 
7100 
7200 
7300 
7400 
7500 
7600 
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DO 


1  > 

CURRENTNUMBROFSUPS)J 


$AC1  I  ON (ENTERNpMPEPOF  SUBSCRIPTS)  I 
DROP 

FOR  I  «-  1  STFP  1  UNTIL  I DL I STCOUNTER 
BEGIN 

StNTFRClDSTACK/STPP-H-I* 

SUFSCPIPTEPt 
NUNRPOFSUBSt 

end; 

cukremmimrrofsubs  *■  0; 
end; 
tact i  on (eve  nt  declaration) i 

comment  this  action  sets 
that  an  evfnt  declaration  is 
currempt  cltype  «-  fvntj 
sactiokcf ii  .f declaration  j  i 

comment  this  action  sets  current  decltypf  s  oslflle) 
currentdecltype  «■  psleilej 
&actlon(fornalparametfp)» 

comment  this  action  fnters  a  formal  p 
the  formal  parameter  bit  is  turnfd  on.  a 
bit  is  turnfd  on.  if  thf  is  being  define 
an  errpr  mfssage  is  printfdj 

DROP 

IF  BOOLEAN($OPD(bIGTAB,$npD(MSTACK>STOP>ENTPY)>ISBElNGDEF INED)) 

THEN 


CURPENTDECLT 
REING  SCANNE 


YPE  s  EVNT  TO  INDICATE 
D; 


ARANETER  INTO  USTACK. 
LSO*  THF  IS  BEING  DEFINED 
D  PIT  IS  ALREADY  ON  THEN 


BEGIN 


ERPMS  "ID  USED 

"SECOND 
HPITEMFSOUT 


TWICE  IN  THE  SAME 
ID  IS  IGNORED.*; 


FORMAL  PARAMETFR  LIST  -  % 


END 

ELSE 

BEGIN 


SpUSHC IDSTACK> 


SAl L  Ot 
SAIL  II 
SAIL  2: 
SALL  31 
BIGTABPTR  I 
OLDSEMFIFLDt 


SFNTEpCPlGTAB* 


0> 

Of 

0* 

Ot 

SOPD(M 

SOPDCR 

$ 

s 
d; 


STACK/STOP, FNTRY)# 
IGTAB* 

OPP(MSTACloSTOP>FNTPY), 
EM)* 


FOpMALPARMt 

SOPDfMSTACK/STOp>ENTRY)> 
SEMl  0* 

ISPEINGDEFINEDII* 
IDSTACKPTRI     PTIDSTACK-1); 
$INCR(IDCOUNTER); 


-ACT 

ACT 
ACT 
ACT 
UCT 
ACT 
ACT 


ACT 


END; 

end; 

lON(fUNClIPNlSBOOLEAN): 
I0N(FUNC1 IpNlSlNTECER); 
lOK(FUNCTIpNTSPATTERN): 
ION(FUNCTIONISPOINTEF)  t 
ION(FUNCTIpNlSSTRING)  1 


semanttctest 
senakttctest 
semantictest 
semantictest 
semantictest 


♦  FUNCTTONTFST(POPL)  J 

♦  FI'NCTIONTFST(INT); 
<-  FUNCTIONTESTf  PATT); 
«•  FUNCTIONTEST(PTP); 

■  FUNCTIPNTEST(STR); 
SEMAN'TICTFST«-Fl'NCTlONTFSTfSTRUCT); 


IDN(FUNCTIpNISSTRUCTURF)« 
lON(GETNEXTPARM) : 

COMMENT   THIS  ACTION  UPDATES  THE  ACTUAL  PARAMETER  COUNT; 
SINCRCCl'KRrNTACTUALPARAMFTERCOUNT); 
lOMIDlSACcESS)! 

COMMENT   THIS  ACTlOf*  SFTS  SFMANTTCTEST 
JUST  SCANNFP  IS  AN  ACCFSS  VARIABLE; 
SEMANTICTEST  «■  SOPP  (  I  UST  A  CK  n  JPPD  (  R  I  CT  AB,  J 


TRUE  IF  THE  IDFNTIF IER 
OPOCMSTACK* STOP 'ENTRY )> 


007*7700 
007*7600 
007*7900 
007*8000 
007*8100 
007*8200 
007*8300 
007*8*00 
007*8500 
007*8600 
007*8700 
007*8800 
007*6900 
007*9000 
007*9100 
007*9200 
007*9300 
007*9*00 
007*9500 
007*9600 
007*9700 
007*9600 
007*9900 
00750000 
00750100 
00750200 
00750300 
00750*00 
00750500 
00750600 
00750700 
00750600 
00750900 
00751000 
00751100 
00751200 
00751300 
00751*00 
00751500 
00751600 
00751700 
00751600 
00751900 
00752000 
00752100 
00752200 
00752300 
00752*00 
00752500 
00752600 
00752700 
00752600 
00752900 
00753000 
00753100 
00753200 
00753300 
00753*00 
00753500 
00753600 
00753700 
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IDM 
)J 

ANTIC 


ACKPTR)/TYPE)  c  ACCESSVAR; 
TEST  TRUE  IF  THF  ID  ON  THF 


JACTIONC  IPISPPOCFDURF 

COMMFM   THIS  ACTION'  SETS  SFM 

t'F  mstack  is  a  procedure  id  j 

DROP 

IF    CliRRFMsTRUCTURFPTR    =    0 

THEN 

BEGIN 

if  snpd(pigtap>*opp(mstack/stop>entry)»ldstackptr)  =  0 
then  semantictest  «■  false 
else  semantictest  «■  boolean 


!($OPD 

SO 


PR 


If  semantic 

THEN 
PEG  IN 

$ENTER 


TEST 


(MSTACloSTOP* 
PROCEDUFEPTR«  SOPDfB 

I 

I 

PROCEDUPEPTRISIMTOID 


C IDS TACK J 

PD(f IGTAB/ 

SOPD(M STACK, STOP /ENTRY)/ 

IDSTACKPTR)/ 
OCEDURE))! 


IGTAB* 

OPD(MSTACk**TOP#ENTRY)# 
DSTACKPTR)* 
STACK!  1); 


END 


END 

ELSE 

BEGIN 


INTEGER  II 
I  «•  FiNPSUB 
SEPANTKTFS 


IF  SEMANTIC 

THFN 

BEGIN 

CURREN 
JFNTER 


STRLiCTuRFJP(*OPD(MSTACK#$TOP*ENTPY))l 
T    <-    IF    I    =    0 

THEN    FALSE 

ELSE  POOLE AN (SOPD(STRUCTURET ABM /PROCEDURE)) 
TEST 


tidptr  <-  ii 
(mstack* stop* 

procepufeptr: 

procedureptrisintoid 


stack:  0) 


ENP 


END 

end; 

SACTI0N(  I 
COM 
DROP 
SINCRC 
OPERAT 
END; 

SACTIONC  IN 

COM 

kE  ARE 

CURREN 

SACTIONf  IN 
DROP 
SEMANT 


ncrsubscri 
ment  this 

cukrentnum. 

nP(wMAKE-I 

TFGERDFCLA 
MFNT   THIS 
NOW  PROCF 
TPt  CLTYPE 
TFGERPROCF 


FT  )» 

ACTION  ADDS  ONE  TO  THE  SUBSCRIPT  COUNTER! 


bRPFSUPS)! 

ndfx"); 

RATTON)  j 

ACTION  SETS  CURPENTD 
SSING  AN  INTFGER  DECL 
<•  I  M  T  I 
D  U  R  E  )  « 


ICIEST  *  (IF  CURPEN'TSTRUCTUREPT 
THFN  SpPDC  IDSTACK/CIJ 
ELSE  S0PD(STRUCTURFT 
=  INT  I 


ECl  TYPF  =  INT  TO  INDICATE  T 
ARATION  ; 


R    =    0 

RREmTPPpCFPIIPFIP#TYPE) 
AB/CURPFNTIPPTR/TYPE )) 


fnd; 

iACTlON( INTFGERSTORF 
DROP 


)  : 


00753600 

00753900 

T0P00754000 

00754J00 

00754?00 

00754300 

00754400 

00754500 

00754600 

00754700 

00754600 

00754900 

00755000 

00755100 

00755?00 

00755300 

00755400 

00755500 

00755600 

00755700 

00755600 

00755900 

00756000 

00756100 

00756200 

00756300 

00756400 

00756500 

00756600 

00756700 

00756800 

1   00756900 

OO757CO0 

00757100 

00757200 

00757300 

00757400 

00757500 

00757600 

00757700 

00757600 

00757900 

0075^000 

00756100 

00756200 

0075B300 

00756400 

00756500 

00756600 

HAT00756700 

00756600 

00756900 

00759000 

0075^100 

007592^0 

00759300 

00759400 

00759500 

00759600 

007597^0 

00759600 
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0perat0r("st0rf-intfger"w  -007  59*00 

end;  00760000 

J,ACTlON(ISlPANACCESSTYPF)»  00760100 

COMMFNT   THIS  ACTION  SFTS  SFMANTICTEST  *  TRUE  IF  THE  ID  JUST  00760?00 

SCANNFO  IS  AN  ALLOWAPLF  ACCFSS  TYPE)  00760300 

SEKiANTICTEsT  ♦  *UPD(  I  DST  ACK»  *  OPD  (  P  I  GT  AB,  SOPD(  MST  AC  K>  STOP*  ENTRY  )  >  00760400 

IDSTACKPTR)#TYPF>  =  ACCFSS  ;  00760500 

JACTIONC  LFAVELAREL                     )»  00760600 

COMMFNT   THIS  ACTION  CHFCKS  THAT  THE  LABFL  IN  A  LEAVE  STATEMENT  00760700 

IS  LEGITIMATE  AT  THIS  Tl^'E;  00760600 

DROP                                        '  00760900 

I  «■  SOPD(M$TACK,$Tnp, ENTRY);  00761000 

J  «•  $OpD(BlGTAB/  I  »  IDSTACKPTR);  00761100 

IF  SOPDdDsTACKOf  TYPE)  *    LAPL  007-61200 

THEN  00761300 

BEGIN  00761400 

ERRMS  "THIS  IS  NOT  A  LApEL.";  00761500 

WRITFMESOUT;  00761600 

END  00761700 

ELSE  IF  J  <  CURRENTPROCEPUREID  00761600 

THEN  00761900 

BEGIN  00762000 

ERPMS  "THIS  LAREL  IS  OUTSIDE  THE  RANGF  OF  THIS  PROCEDURE.";  00762100 

WRITEMESOUT;  00762200 

END  00762300 

ELSE  ■  00762400 

BEGIN  00762500 

SpUSH(LEAVFSTACK#SALLiO,AOORESSlCURRENTADDRFSS);  00762600 

OpFRATORC"***  (BRANCH  INSTRUCTION  WILL  PE  HFRE)  ***");  00762700 

END;  00762600 

END;  00762900 

lACTlON(MACPODFFINITmN)  t  00  76  3000 

CON>'FNT   THIS  ACTION  SETS  CURRENTDFCLMACROsl  SO  IT  MAY  BE  USED   00763100 

TO  INDICATF  MACRO  VARlARLFS  AND  PROCEDURES;  00763200 

CURRFNTDECLMACRO  <-  i;                                        *  00763300 

.ACTlON(NAkFSURENOPARAMFTERSAPERFQUlRED) t  0076  3400 

COMMENT   THIS  ACTION  f'AKFS  SURE  THAT  NO  PARAMFTERS  MUST  RE  00763500 

SUPPLIED  TO  AN  ACCESS  DECLARATION;           *  00763600 

DROP  00763700 

IF  SOPO( IDSTAC|OCURRFNTACCESSID#NUMPROFPARMS)  #  0  00763800 

THEN  00763900 

BEGIN  00764000 

ERRMS  "PARAMFTERS  MUST  PF  SUPPLIFO  v.'  I T H  ">  00764100 

POINTER(SOPP(PIGTaB>< I*»OPD( IOSTACK>CURRFNTaCCESSID»  007  64  200 

RIGTAPPTR))  +  1>SAID)  00764300 

FOR  SOPD(PlGTAB»I#IDLFNGTH)#  00764*100 

"  ACCESS  DECLARATIONS.";  00764500 

WPITEMFSOUT  00764600 

END;  00764700 

END;  00764800 

;ACTI0N(M0VF[JSL2SFMF1ELDFR0M1T04)|  00764900 

COMMENT   THIS  ACTION  K'OVFS  THF  0SL2SFNFIELD  IN  MSTACK  FROM  00765000 

TOF-1  TO  TOP-4;  00765100 

*>0FD(MsTACMJT0P-4,riSL2SFMFIFLD)«-S0PD(MSTAClO$T0P-l,0SL2SFMFlELD>J  00765200 

*CTION(MOVFOSL2SEMFIFLDFROM1T06)»  0076  5  300 

COMMENT   THIS  ACTION  ^OVFS  THF  0SL2SEMFIFLD  IN  MSTACK  FROM  00765400 

TOP-1  TP  TnP-6;  00765500 

SOF 0 ( MST ACK * ST0P-6»0SL2SFMF U LO)*SOPD( MSTACK* STOP- 1>0SL2SEMF I  ELD);  00  7  6  56  00 

*CT  I  ON  CMUSTF>EUN  SUBSCRIPTED)  t  00765  7  00 

COMMENT   THIS  ACTION  PRINTS  AN  ERROR  MESSAGE  IF  A  SUBSCRIPTED  00765p00 

VARIABIF  APPEARS  WITHOUT  ITS  SUBSCRIPT;  00765900 
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DROP 
I  F  C  I F 


CURRFNTSTRUCTUREPTP«0  THFN  $OPD( I OST ACK> 

SOPDCBIGTAPji 

*HPDO'S  TACK*  STOP*  E'NTRY 
TDSTACKPTR)* 
SUBSCRIPTED) 
ELSE  S0PD(STRUCTIJRETAR> 
CUHRENTIOP7P* 
SUBSCRIPTED))*! 


THLN 
BEGIN 

LFR 

END! 

ENDJ 

tACTjOMNODE 

copmp 

ALL  IDFN 

CURRF  NTO 
SACTlONC  OPF 
CCMnE 
PECLAHAT 
DROP 
SPOShC ID 


MS  "SUBSCRIPT 
TFMESOUT 


PEPUIRED."> 


DECLARATION)! 
NT   THIS  ACTION 
TIrlERS  IN  THIS 
ECLNODF  «-  ii 
M.ABEL 

nt  this  action 
ion; 


SETS  CURRENTDF 
DECLARATION  AR 


CLNODE  =  1  TO  INDICATE  THAT 
E  OF  TYPE  N'ODF  J 


ENTERS  A 


)» 
LAPEL 


IN  IDSTACK  AS  IE  IT  WERE  A 


STACK,  SALL  0!  0/ 
SALL  1«  0# 
SALL  ?!  Of 
SAIL  3!  0* 
TYPFj  LAR 
LABELSEOMENT! 
LAPFLSTAPTADD 
B1GTABPTR1S0P 
OLDSEMFIELDlS 


SENTER(BlGTAB»SripD(MSTA 
SEH! 

ISDEFINEDt 
IDSTACKpTPl 
ISH( IDCOUNTEPSTACK!  1  ) 
hFlRSTPART, "LAPEL   " 
CR(CURRFNTADDRFSS)J 
iSHfLFAVtSTACK/IALLlO 


CURPENTSE 
RESSl  CIJPR 
D(NSTACK,S 
OPDCBIGTAR 
SEM)); 
CK,STOP*FNTRY), 
0, 
\t 
PTIDSTAC 


G^FNT> 

F.NTADDRESS* 

TOP#EMTRY)» 

» SOPD(MSTACK# STOP* ENTRY)* 


spu: 

OPF  I 

SpF< 
SpU 

end; 
sactioncuwnd 

C  0  ¥  \>  F 

CURPE  NTT' 

DECLARAT 

C  U H  h  E  NTP 

SACTlONf PATT 

comme 

THAT  All 
CURRE  MP 
SACTIONCE  ATT 
DROP 
SEMANTIC 


K-n;  4 
»printid;operlastpart; 

,MARKll)j 


ECLARAT ION)  J 

NT   THIS  ACTION  PEC0GNI7FS  THE 
ECLOWN  =  1   TO  INDICATE  THAT  A 
iriN  ARE  OF  TYPF  PWNJ 
ECLOWN  «■  1  j 
ERNDECl.ARATTON)  ! 

NT   THIS  ACTION  SETS  CURRENTDF 
FOLLOWING  IDS  IN  THIS  DFCLARA 
LCLTYPF  <r     PATT; 
ERNPROCFDURF)! 


end; 
sactioncpatt 

DROP 
OPERATOR 


TEST  «•  (IF  CURPFNTSTRUCTUREpTR 
THEN  SOPDUDSTACK'CUR 
El  SE  JnPD(STRUCTURETA 
=  PATT  J 

E  RNSTORF  )  I 

("STORF-PATTFRN*)/ 


RESERVED  WORD  OWN  AND  SETS 
LL  IDFN'TIFTFRS  IN  THIS 


CLTYPF  =  PATT  TO  INDICATE 
TTDN  APE  OF  TvPE  PATTERN; 


=  0 
RENTPRDCFDUREin»TVPF> 
B»CURRFNTIDPTP/T.YPE  )) 


00766000 

00766100 

00766?00 

)>00766300 

00766400 

00766500 

00766600 

00766/00 

00766600 

00766900 

00767000 

007671C0 

0076/200 

00767300 

00767400 

ooeooioo 

OOBOO^OO 

00600300 

00600400 

00600500 

00800600 

00800700 

ooeooboo 

00800900 

00801000 

00601100 

00601P00 

00801300 

00801400 

00801500 

00801600 

00801700 

00801600 

00601900 

00802000 

00802100 

00802200 

00602300 

00802400 

00602500 

00802600 

00802700 

00802600 

00802900 

00803000 

00803100 

OO6O3?O0 

00603300 

00603400 

00603500 

00803600 

00603700 

00803600 

00803900 

008CA000 

00804100 

00804200 

00804300 

00604400 

00604500 

00804600 
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SAC 


(AC 


END  i 

TIDM 

C 

A  PO 

CUKR 

TIOKC 

DROP 

SEP  A 


(AC 


(AC 


END  J 

TIOM 

DROP 

OPE.R 

FNDJ 

TIOM 

C 

IDST 

DROP 

IF  S 

THEN 

BEGI 


POTNTERDECLARATIC1N) 
ONMFM   THIS  aCTTOk 

inter  declaration  i 
entpecltype  <•  pjrj 
potnterprocldure)  i 

ntictest  «■  (if  curr 

THEN  t 
ELSE  f 

=  ptr  ; 
pdinterstore)! 
atdrcstdre-pointer 
prdcediireidfntifier 

CMpFNT   THIS  ACTION 
ACK  and  UPDATES  STP 


SETS  CURRENTPECI 
S  BEING  SCANNED; 


TYPE  =  PTR  TO  INDICATE  THA 


EMSTRUCTUREpTR  = 
0"D( IPSTACK'CURRE 
OPDCSTRUCTURE1 A6* 


>'« 

ENTERS  NON-STRUC 
UCTURF  IDS  TO  RE 


NTPROCEDl)RETD*TYPE) 
CURREN.TIDPTR#TyPE)  ) 


turf  procedure  ids  in  the 
current; 


CAnMNGFOPMALPARAMFTFRDECLARATIPNS 

N 


D(  PI  GTAP,SnPn(MSTACK»5-TOP*  ENTRY)* 
SPFINGDEElMEn)) 


IF  NOT  ROOLEANCSOP 
I 

THEN 
BEGIN 

EPRMS  "THIS  ID  IS  NOT  A  FORMAL  PARAMETER."; 
WRITEMESOUT 
END 
ELSE 
BEGIN 

IF  CURRENTDECLTYPE  ■  STRUCT 

THEN 

BEGIN 

SENTERU 
SPOPCIDS 
SENTERU 


NUp 
STP 
STp 

end; 

$ENTER(IDSTAC 


TYPE! 

MACRO! 

PROCEDUP 

HASPEENS 
IE  CURRENTDEC 
THEN 
BEGIN 

SENTERU 

END 


DENTPY'SALLOFCIDS 
TACK); 

DSTACK'SOPDCPIGTA 
SPPD( 
TDSTA 
BPSURSTPUCTJSC'PPC 
UCTURFPTR!  J,OPD( 
UCTPTpREFORE!$nPD 

K»SOPD(BIGTAP, 

SOPDCMSTAC 
IDSTACKPTR 
CURRENTDEC 
CURRENTDEC 

E:      1* 

pec  «   n; 

LTYPE    *    STRUCT 


DSTACMSDPPO'STAC 
TRUCTPTRBEFOPF!     P 


TACK»STOP)>; 


P*  * 

MSTACK*STOP*ENTRY)> 

CKPTR)* 

IDENTRY»NUMPRSUPSTR-UCn# 

I  DENTRY* STRUCTURE PTR)* 

(IDFNTRY»STRUCTPTRBEFOPE)) 


K*STPP*ENTRY)* 

)> 

LTYPE* 

LMACRO* 


K»STOP*ENTRY)> 
TSTRUCTURETAP) 


END 


END 

ELSE 

BEGI 


N 


0O8O4700 

00604600 

T00B0«900 

ooeo5ooo 

00605100 
00805200 
00605300 
00805400 
00805500 
00805600 
00605700 
00805800 
00805900 
00806000 
00806100 
00806?00 
00806300 
00806400 
00806500 
00806600 
00606700 
00806600 
00806900 
00807000 
00807100 
00607200 
00607300 
00807400 
00607500 
00807600 
00607700 
00607bO0 
00607900 
00806000 
00808100 
00806200 
00808300 
00608400 
00808500 
00808600 
00808700 
00806600 
;00808900 
00809U00 
00609100 
00609200 
00809300 
00809400 
00609^00 
00609600 
00809700 
00809800 
00809900 
00810000 
00810100 
C0810200 
00610300 
00810400 
00810500 
00810600 
00610700 
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IF  CURRFNTpFCLTYPE  /  STRUCT 

THIN 

BEGIN 

SPUSHCIDSTACK*  SAL  L  01 
SAl  L  H 
SAIL  21 
SALL  3: 
TYPE« 


0* 

Of 

Of 

Of 

CURRENTDFCLT 
STRUCTPTRBFFPRE I PT STRUCTURE 
MACRO!  CURRF.NTDFCLM 


YPF* 
TAR* 

acroj; 


END* 

SENTERc  IDSTACK*$T 


OP* BlGTABPTRJ 

PRrCFDURF t 
OLDSFMFIFLDl 


SOPD ( M STACK* STOP* FNTRY>> 

1* 

SOPD(PlGTAB* 

SOPD(MSTACK>$TOP*ENTRY)* 

S  F  M  )  )  ; 


$EMERfPlGTAB*SOPD(MSTACO*TQP*  ENTRY)* 

iSPEFINEPt  0* 
ISPFINGDFFTNFDM* 
IOSTACKPTRI     PTIDSTACK-1) 


$INCR(  incouMEP); 

IF  SOPPCIDSTACK** 
AND  K'Ot  BOOLEA 
AND  K'DT  SCANNI 
THEN 
BEGIN 

ERRMS  "THIS 

"  THIS 
WRITFMFSOUT 
END) 
END) 

SPUSHCPROCEDUREID 
CURRENTPROCEDUREI 


TnP*ISBFINGDEFlNED)  =  1 

M(  JOPD(IDSTACK*STOP*FORWARnnEFlNF.D)) 

NGFORK ALP ARAMETFRDFCLARAT IONS 


PRHCEDURE  IDFNTIFIFR  HAS  BFFN 
BLOCK  HEAD.   THE  PREVIOUS  IDE 


USFD  PRFVIOUSLY  IN" 
NTIFIFR  IS  LOST.*; 


SEXECCS 
END) 
$ACTlON(PRn 
COMM 

THAT  A 
CURRENT 
$ACTlON(f-US 
CUMM 
NOTHING 
DRDP 
SPUSHC  I 


STACK*  Ci'RRENTPROCEOURETD); 

D  «■  SnPD(BlGTAR*SOPD(MSTACK,STOP*ENTRY)* 
IDSTACKPTP) J 
CANSUPSTRUCTURE)! 


fnd; 

*ACTlON(RES 

CPMMF 

MUST  AT 

IDLISTC 

SACTIONC  RF 

CUMS- 

STRUCTl) 


CESSDECLAR 

ENT   THIS 
PROCFSS  DL 
DECLTYPE  <- 
HDUM^YID) ! 
FNT   THIS 
ELSF.   IT 

PSTACK*  SA 
SA 
SA 
SA 

ow 

TY 
NO 
ST 

MA 

FTIpLlSTCO 
NT  AT  THE 
LEAST  SET 
PUNTER  ♦•  0 
FFTSPT 
FNT  THIS 
FF.  HAS  BEE 


AT  ION  5  t  ., 

ACTTON  SETS  CURRENTDECLT  YPE  = 
CLARATION  Is  BEING  SCANNED) 
PROS; 

ACTION  PUSHES  AN  10  ENTRY  INTO 
IS  USEO  TO  PLANT  AN  ID  FOR  ST 

LL  01  0* 

LL  1)  0* 

LL  ?t  0* 

LI  3l  0* 

Nl  CURRENTDECLOWN, 

PFi  CURRENTDECI  TYPF* 

DF«  CURRENTDECLNODF* 
RUCTPTRREFnRElPTSTPUCTURETAP* 

CPOJ  CURRENTDECLMACRO) 


PROS  TO  INDICATE 


IDSTACK  AND  DOFS 

RUCTURE  procedures; 


DECLARATION,  wE 
FRO  ) 


UMTFR)) 

END  OF  AN  INITIALIZATION  IN  A 

THE  ID  LIST  COUNTFR  BACK  TO  Z 
) 

)« 
ACTION  RFSFTS  CURRF NTSTRUCTURE PT R  AFTFR  A 
N  COMPLETELY  SCANNFD) 


006 
008 
008 
008 
008 
008 
008 
008 
008 
006 
008 
008 
006 
008 
006 
008 
006 
006 
008 
006 
006 
008 
008 
008 
006 
008 
*008 
008 
008 
008 
006 
008 
008 
006 
008 
008 
006 
008 
008 
008 
008 
008 
008 
008 
006 
008 
008 
008 
006 
006 
008 
006 
008 
008 
006 
008 
008 
008 
006 
008 
008 
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SAC 


SAC 
SAC 
$AC 


SAC 
SAC 


CURR 
TlONC 
C 
USED 
THIS 
SPEC 
DROP 
SPUS 
SCAN 
END; 
TIOM 
TlON( 
TlONC 
C 
IN  A 
INTO 
IDEN 
EXCL 
BLOC 
DROP 
SPUS 
SPOS 
SPOS 
SPUS 
SPUS 
SPUS 
SCAN 
IDLI 
SEXF 
SEXE 

end; 

TI0N( 
TI0N( 
C 
CURR 
DROP 
IF  C 
THEN 
BEGI 


END 

ELSE 

BEGI 


ENTSTRUCTURFPTR  <-  Of 

SCAN'NINGFORMALPARAMETERDFCIARATIONS) 

OMMENT  AT  THE  END  OF  A  FORMAL  PARAM 
TD  TURN  ON  THF  SC A NNl NGF OPMALP A R AMF 
SWITCH  SIGNALS  THF  DECLARATION  PROC 

IAl.  PROCESSING  REQUIRED; 

H(FORMALSwITCHSTACKtSCANMNGFORMALPA 
NINCF  ORMALPARAMFTEPOFCLARATIONS  «•  TR 

SCANPTRFUNCTION)  J 

SCANRELEASE): 

SCA.NSUBSTRUCTtlPE)* 

OMMFM  THIS  ACTION  PRFPARFS  FOR  THF 
STRUCTURE  DECLARATION.  ALL  DECLARA 
STRUCTUREPARMSTACK  AND  THEN  SET  TO 

TIFIERS  ARE  SET  TO  DFFlNFO  SP  AS  TO 

UDFD  FROM  USE  WITHIN  THF  STRUCTURE. 

k  FND  OPERATION  AND  REINITIALIZE  AS 

HCSTRUCTUREPARMSTACKlCURRFNTDECLOWN) 
HCSTRUCTUREPARMSTACKtIDI ISTCPUNTER); 
h(STRUCTUREPARMSTACK«CURRENTnECl.NODE 
HCSTRUCTUREPARHSTACK»CURRENTDE.CLMACR 
H( STRUCTURE P ARMS  TACK: CURRENT DECLTYPE 
HCFORMALSWITCHSTACKjSCANMNGFORMALPA 

mngformalparameterofclarations  <-  FA 
stcpuntfr  «•  0; 
ccfndofdeclist); 
ccendofdataueclaration); 

setconveRtdffault)  J 

sftcurrentstructupeptr       )» 

ommfnt  this  action  sets  up  currfnts 

entnumfjErofsubstructures  for  a  struc 

urpentstructurfptr  s  0 

N 
I  «■  $OPO(BlGTAp»Sppp(MSTACK»$TPP.EN 
$OPU(MSTACK,$TpP#STPUCTuRFPTR)  «- 
CUPRENTSTRUCTURFPTR  *•  *0PD(I0STACK# 
SDPDCMSTACK/STnP^'UMBRSURSTPUCT)  «• 
CURRFNTNUMFEROFSUPSTRUCIURES  ♦  SOPD 


N 


FTER  LIST*  THIS  ACTION  IS 
TFPDFCLARATIPNS  SWITCH. 
FSSnRS  THAT  THERE  IS 


pamfterdeclapations); 
ue; 


SCAN  OF  A  PFCLAPATION  LIS 
TlON  PARAMETERS  ARE  PUSHED 
7EPO.   ALL  PIGTAR 
PRFVFNT  THEIR  BEING 

IN  FFFFCT*  WE  PERFORM  A 
IF. WE  WERE  IN  A  NEW  BLOCK) 

; 

)} 

O); 
); 

rameterdfclapations); 
l  se; 


TRUCTUREPTR  AND 
TURF  FIRST  PART; 


TRY)#IDSTACKPTRH 

I/STPUCTUREPTR); 

f IDSTACK,I,NUMRPSUBSTRUCT) 


ISAC 
SAC 
'SAC 
SAC 
SAC 


SpPD(MSTACK,$TpP. STRUC TlRFPTR)  * 

cuprentstructurfptr  «■ 

sopd ( st ructurf tar. current  i  dpt r* structure ptr); 
topd(mstack*stpp.numppsurstpuct)  ♦ 
currentnumperofsupstructurfs  ♦ 

sopd(structurftar.currentidptr#numbrsubstruct); 
end; 

nokamecall  *  true; 
end; 

tion(sftdefaultstringlength)  t 
tion(setnefaultstringlengthamdsize)t 
ti0msetpefai'ltstringsi7e)i 
ti0n(setfixfdstringlength)i 

TION(Sf  TSTAROK)  j 


00816900 
00817000 

00817100 
00617200 
00817300 
00817400 
00817500 
00817600 
00817700 
00817800 
00817900 
00816000 
00816100 
T008182C0 
00616300 
008l6a00 
00818500 
00818600 
00818700 
00816600 
00816900 
00819000 
00819100 
00819200 
00819300 
00819400 
00819500 

00819600 
00819700 
00819600 
00819900 
00820000 
00820100 
00820200 
00620300 
00820400 
00820500 
00820600 
00620700 
00820600 
00820900 
00821000 
00821100 
J00821200 
00821300 
0082H00 
00621500 
00821600 
00821700 
00821600 
00821900 
00822000 
00822100 
00822200 
00822300 
00622400 
00822500 
00822600 
00822700 
00822600 
00822900 
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ASH 

* ACTIONC 

SACTIOM 

C 

AN    A 

DRl  P 


MSKALLPWFD    «■    TRUE; 
SETS7RINf.SIZE)i 

sftupaccf ssparameterscan)  i 
dmmfnt  this  action  prepares 
ccfss  declaration; 


FOP  AN  ACCFSS  PAPAMFTFR  SCAN  IN 


*PUSH( A 

current 
so 

SpUSH(A 

current 

fO 
*PUSH(A 
CURRENT 
IF  CURR 
THFN 
BEGIN 

FR 


CTUALPARMST 
FORMALPARAP 
PD( IbSTACK* 
CTUALPARMST 
NUMiLPOFFOF 
P  0  (  I  D  S  T  A  C  K  > 
CTUALPARMST 
ACTu ALP  ARAN 
F.VTNUMPEROF 


ACK'CURRENTFP 
FTFPLlSTPniNT 
CURR  F.  MAC  CESS 

ACKjCURPENTKII 

malpapameteps 
curremaccess 

ack>curpentac 
ftfrcoum  «■  0 
formalparamet 


rms  pointercsopdcbigtab* 
current 

Of PIGTAB* J#In 
S  DECLARATION 


FOR  SOP 
"  ACCES 
^PITFMESOUT 


RMALPAPA ME TFPLlST POINTER)) 

ER  «■ 

ID^FORMAl PARMPTR); 

MPER0FF0RMALPARAMETFR5)J 

«■ 
ID»NUMBROFPAPMS)J 
7UALpAPAMETEPCOUNT)i 

ERS  e  0 


(  I<-SPPD(  IDSTACK* 

ACCESSin#BlGTABPTR)+l)#$ALL)> 

LENGTH)* 

S  DO  NOT  HAVE  PARAMETERS."; 


END 


end; 

sactionc 

C 
PUSH 
POIN 
DROP 
tPUS 
CURR 


SET U PACT UALPARAMFTfR SCAN)  J 
[jMMENT   THIS  ACTION  PREPARES  FOP 

ing  and  resetimg  the  appropriate 
ters  and  counters  ; 


AN  ACTUAL  PARAMETER  SCAN  PY 
FORMAL  AND  ACTUAL  PARAMETFR 


H(ACTUALP 
ENTFORMAl 
IF 
THE 


ARMSTA 
PARAMF 
(300LEA 
N  SUPD 


ELSE  SOPD 


SPOS 
CUPR 


HCACTUALP 
ENTNUMRFR 
IF 
THF 


ARMSTA 
OFFURM 
BDOLEA 
N  SOPD 


ELSE  SOPD 


SPIS 
CURR 
IF  C 
THEN 
BEG  I 


END) 
End; 

CONM 


H(ACTUALP 
ENTACTUAL 
URRENTNU'-' 


ARMSTA 
PARAMF 
BFROFF 


CK'CU 

TFRl  I 

N(STP 

(IDST 

SOPD 

FORM 

(STPU 

SOPD 

FORM 

CK*CU 

ALP/R 

N(SPP 

C  I  D  S  T 

SOPD 

N  U  M  R 

(STPU 

SOPD 

NUMB 

CK'CU 

TERCn 

ORMAL 


PPENT 

STPOI 

P(MST 

ACK* 

(MSTA 

ALPAP 

CTURE 

CMSTA 

ALPAR 

PRENT 

AMETE 

PCMST 

ACK* 

(MSTA 

PPFPA 

CTURE 

(MSTA 

PPFPA 

R  R  E  N  T 

UNT  4- 

PARAM 


FORMALP 
NTER  «■ 
ACK,STp 

ClOSTOP 

MPTP) 

TAB* 

CIOSTOP 

MPTR); 

Nl'MPERP 

RS  «- 

ACK>STp 

CK*STOP 

RMS) 

TAP* 

CK»STOP 

RMS); 

ACTUALP 

OJ 
ETEPS  = 


ARAMETERt ISTpOlNTER); 

P-l*PROCEDURFPTPISINTOlDSTAcK) 

-1,PR0CFPUREPTR)# 

-1>PP0CFDUREPTR)> 
FFORMALPARAMFTERS); 
P-l#PROCFDUREPTRISINTOlDSTACK) 
-l*PROCEPUREPTR)» 

-WPROCEDUREPTR)* 
ARAMETERCOUNT); 
0 


EPPMS  "THIS 
WRlTFMFSnUT 


PRPCEDUPE  MAY  NOT  HAVE  PARAMETERS,"  ) 


SAC! I  or  ( 

SACT  ICW  ( 

DROP 


F  NT 

THFSF  ACTIONS  AIL  TFST  THE 
SETVARIAPLFSTRlNGLFNGTHJl 

SKIPTHRTUGHSEMICPLPN) t 


TYPE  OF  THF  NEXT  FORMAL  PARAMETER) 


008? 
0082 
008? 
008? 
008? 
0082 
0082 
008? 
0062 
0062 
0082 
008? 
0082 
0082 
0082 
0082 
008? 
008? 
0062 
0082 
0082 
006? 
008? 
006? 
006? 
0062 
008? 
0062 
0062 
0082 
0082 

)0062 
0082 
0082 
0082 
0082 
0082 
0082 
0082 
0082 

)0082 
0062 
0082 
0082 
0082 
0082 
0082 
0082 
0062 
0082 
0082 
0082 
0082 
0082 
006? 
008? 
006? 
0082 

0062 
0082 
0082 


3000 

3100 

3200 

3300 

3400 

3500 

3600 

3700 

3b00 

3900 

4000 

4100 

4200 

4300 

4400 

4500 

4600 

4700 

4600 

4900 

5000 

5100 

5200 

5300 

5400 

5500 

5600 

5700 

5600 

5900 

6000 

6100 

6200, 

6300, 

6400 

6500: 

6600 

6700 

6600 

6900 

7000 

7100 

7200 

7300 

7400 

7500 

7  600 

7700 

7600 

7900 

6000 

8100 

8200 

6300 

8400 

6500 

8600 

H700 

B600 

6900 

9000 
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tACT 
tACT 


tACT 


SACT 


DO  S 
END) 
ION  C 
ASTE 
ION( 

C 
FUSH 
DROP 
tPUS 
tPUS 
$PUS 
CURP 
END) 
IOM 

C 
THAT 
CURR 
IONC 
DROP 
SENA 


KAN(l)  UNTIL  SOPD(MSTACK,PTMSTACK*PSYM)  e  *)«J 


tACT 


tACT 


tACT 


'tACT 


END) 
ION  C 
DROP 
OPER 

end; 

JON( 

C 

FOR 

SThU 

CURR 

IONC 

C 

JUST 

DEF  I 

DROP 

IF  $ 

0 

THEN 

BEGI 


ENDI 
END; 
I0N( 
C 
JUST 
DEf  I 
DROP 


STAPNOTALLOWED) t 
RISKALLO!*ED  «■  FALSE) 

STARTSURSCRIPT 
OMMENT   THIS  ACTION  P 
INf,  AND  CLEARING  CURR 

HCSUE'ScRlPTSTACKtCURP 

HCSUBSCFIPTSTACKJCURP 
H(SUBSCRIPTSTACK»CURP 
ENTNUMpROFSUBS  «•  CHRP 

STFINGDFCLARATION)! 

omment  this  action  s 
a  string  declaration 
entdecltype  «■  str; 
stringprocedurf)! 

ntictest  «■  (if  curpen 

THEN*  tOP 
ELSE  SOP 
«  STR  ) 

STRIN6ST0RE)! 

ATORC"sTORE-STRING")) 

STPUCTuREDECLAPATlON) 
OMMENT  THIS  ACTION  S 
LATER  USE  IN  A  STRfcT 
CTiiFLISPWN  «•  CUPRENTP 
ENTDECLTYPE  «■  STRUCT) 
STRUCTURFMUSTBENAMEDP 
OMMFNT  THIS  ACTION  P 
DECLARED  WAS  NOT  NAN 
NITIONS) 

0PD(BIGTAB#(I*S0PD(ID 
R  POlNTER($OPD(BlGTAP 


REPARES  TO  SCAN  A  SUBSCRIPT  LIST  BY 
ENTNUMPROFSUBS) 

ENTNUMRFROFSUBSTRUCTURES)) 
ENTSTRUCTUREPTR)) 
ENTNUMBPOFSUBS)) 
ENTSTRUCTUREPTR  «■  0) 


ETS  CURRENTDECLTYPE  s  STR  TO  INDICATE 
IS  BEING  SCANNED) 


TSTRUCTUREPTR  «  0 

D(lDSTACK*CURRENTPRrCEDUREID*TYPE) 

D(STRUCTURFTAB»CURRENTIDPTR#TYPE)) 


I 

ETS  CURRENTDECLTYPE  AND  STRUCTURE ISOWN 
URE  DECLARATION) 
ECLOWN  =  1) 

ASE)1 

RINTS  AN  ERROR  MESSAGE  IF  THE  STRUCTURE 

ED  "BASE".   THIS  ONLY  OCCURS  IN  ACCESS 


STACK#$TOP»BIGTABPTR))*IDLENGTH)  *    A 
#I*1#SALL>>  *    "RASE" 


N 


ERRMS  "THE  FIRST  STR 
"NAMED  ",""",»• 
WRITEMESOUT) 


STRUCTUREMUSTBENAMFDF 
OMMFNT   THIS  ACTION  P 
DECLARED  WAS  NOT  NAM 
NITIONS) 

IF  S0PDCBIGTAB#( I  +  SO 
OR  POINTER(tOPD(B 
THEN 
BEGIN 

errms  "the  secp 
>"  pe  name 
writemesout 

END 


UCTURE  IN  AN  ACCESS  DEFINITION  MUST  BE  «> 
BASE"*"""'''.") 


NTRY)I 

RINTS  AN  ERROR  MESSAGE  IF  THE  STRUCTURE 

ED  "ENTRY".   THIS  OhLY  OCCURS  IN  ACCESS 


PDUDSTACK>*T0P#BIGTABPTR))MDLENGTH)  #  5 
IGTABM  +  1»SALL>)  t    '•ENTRY" 


ND  STRUCTURE  IN  AN  ACCESS  DEFINITION  MUST 
D  %"""»"ENTRY"#""">",") 


END) 


00629100 
00829200 
00629300 
00629400 
00829500 
00829600 
00829700 
00829600 
00829900 
00830000 
00830100 
00830200 
00830300 
00830400 
00830500 
00830600 
00830700 
00830800 
00830900 
00831000 
00831100 
00631200 
00831300 
00831400 
00831500 
00831600 
00831700 
00831600 
00831900 
00832000 
00832100 
00832200 
00832300 
00832400 
008325C0 
00832600 
00832700 
00832600 
00832900 
00833000 
00833100 
00633200 
00833300 
00833400 
00833500 
00833600 
00833700 
00633600 
00833900 
OO6340OO 
00634100 
00834200 
00834300 
00634400 
00634500 
00834600 
'00834700 
00834600 
00834900 
00835000 
00835100 
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I  AC  T ION  C  ST 

DROP 
SEMANT 


RUCTliREPROCEOURE)! 
ICTEST    «■ 


(IF    CURPEN'TSTRUCTUREPTR    a    0 

THEN    $OPDUDSTAriOCURREMPRnCEDURE!D>TYPE) 
ELSE    fGPD(STRl'CTURETAB>CURRFNTIDPTR*TYPE)> 
=    STRUCT    I 


END? 
SACTlONCTEsTACCESS)J 
DRIP 
SEMM 


end; 
sactiokte 

SACTlONtTE 
DRCP 
SEMANT 
THEN  0 
END) 

SACTlONCTE 

sactioncte 
sactioncte 
sactioncte 
sactioncte 

DRCP 
SEMANT 
THEN  0 

enl; 

JACTlONCTE 

SACTI0N(TE 
SACTlON(TE 

sact ionc te 

SACTlONfU 
DRDP 
SEMANT 
THEN  D 
END; 
SACTlONCTE 
SACTlONfVA 
COM 
MARKS 
DROP 


ICTEST  <■  $OPD(IDSTACK»fOPD(BlGTAB* 

IOPD(MStaCK*StOP*FNTRY)/IOSt-ACKPTR)#TYPe) 

e  accessvar; 

sttodlean    )j  semantictfst  «•  testt  ype  ( bool  )j 
steogleanstaralldwed); 

ictfst  «■  astfriskallowed  and  l  astt  ype  =  fool;  if  semantictest 
pfratorc"duplicate-top-of-stack-and-load-boolean"); 


stcode       )»  semantictfst  «■ 

STEVENT       )!  semantictfst  «- 

stfile       >»  semantictfst  «■ 

stintfger     )t  sfmantktfst  «■ 

STlNTEGERSTARALLPWFD)t 


testtypecoslcooe); 
tfsttype(evnt  ); 
testtype(oslfile5; 

TESTTYPEdNT    >J 


ICTEST  *  ASTFRISKALLOWED  AND  L ASTTYPE  =  I  NT; I F  SFMANTKTEST 
PFRATOR("DUPLlCATE-TOP-OF-STACK-ANC-LOAD-INTEGER"); 


STFATTERN      )l  SFMANTKTFST  «■ 

STFOINTER      )l  SEMANTICTFST  «■ 

STPRGCFSS      )l  SFMANTKTFST  «- 

STSTRING       )«  SFMANTKTFST  * 
STSTRINGSTARALLOVED)! 


TESTTvPE(PATT  ); 

testtype(ptr  )) 

testtype(prgs  )| 

testtypecstr  ); 


I 
J 
K 
I 
M 
IF 


SO 

SO 

so 
so 
so 

NOT 


ICTEST  «-  ASTFRISKALLOWED  AND  I  ASTTYPF  =  STr;  I F  SEMANTICTEST 
PERATOR(MDUPLiCATE-TOP-OF-STACK-AND-LnAD-STRlNGM); 

STSTpl'CTURE    )»  SFMANTKTFST  *  TESTT  YP<E(  STRUCT  )  I 
LL'EInENTIFIEP)  t 

f/FNT   THIS  ACTION  TESTS  THAT  AN  ID  IS  A  FORMAL  PARAMETER  AND 
IT  TG  PE  VALUE; 

PD<MSTACK/ST0P>ENTPY)J 
PD(RIGTABM>ISFEINGDEFINFD)J   . 
FD(BIGTAP,I,IDSTACKPTR)| 

PD(lrSTACK*K* FORMAL PARM); 
PD(IDSTACK#K*VALliEPARM)J 

(POOl.EAN(j)  AND  POPLEAN(L))  OR  BOOLEAM(M) 


RPMS  "ID  MAY  NOT  BF  SPECIFIED  AS  VALUE  "  IT  IS  NOT  A  FORMAL" 

"  PARAMFTER  OR  IS  ALREADY  MADE  VALUE."* 
'PITEMFSOUT 


THEN 
BEGIN 


EMC 

ELSE 
FEGIN 

SGPD(IDSTACK#K*VAI  UFPARM)   ♦•  lj 

f  nl; 
end; 

SACTlON(VEFlFYCANbEPOINTEDTO)« 
SEN  f. 


00835200 
00835300 
00835000 
00835500 
00835600 
00835700 
00835800 
00835900 
00836000 
00836100 
00836200 
00836300 
OO8364OO 
00836500 
00836600 
00836700 
00636800 
00836900 
00837000 
00837100 
00837?00 
OO8373OO 
00837400 
00637500 
00837600 
00837700 
00837600 
00837900 
00838000 
00838100 
00836200 
00838300 
00838400 
OO8385OO 
00838600 
00838700 
00838800 
00838900 
00839000 
00639100 
00639200 
00839300 
00839400 
00839500 
00839600 
00839700 
00839600 
00639900 
00840000 
00640100 
,00840200 
00840300 
00840400 
00840500 
00840600 
00640700 
00840600 
00840900 
00841000 
00841100 
00900000 
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0SL2    /POMl 


LlSTFD  BY  THFSlS   ON    JANUARY   3#  1971   AT   12 1 1 3  P.M. 


PEG  IN 
tpPJECT 

in1fcer  1>j>ck>l 
poinup  p«-  null; 

POOLEAk  TTsTl/TL 

STRUCTUPF  JHP( 

JMTFGE 
STPUCT 


PDINTE 
I  «•  J  «-  (f  ♦  *+l 
TEST1  «-  TF?T?  «- 
jOb.NUKPEP  ♦•  IF 
BEGIN 

IMEGF-P  7.tQ 

BpPLFAN  TES 

TEST1  <-  TFS 

X  «•  JpP.NUf 

-  JOB. 

7  <-  TF  TFST 

THFN  IF 

FLSF  CA 


FS 

ft; 

TfST1  ♦•  TFS 

end; 

test1  +  tfst2  «■ 


>M)<-o>x»yj 

st?; 

r  nl'mpfr'ppiprity; 

UPE  RErOPDS( 

INTEGER  TIMES TAPTFD.TlMFFlNlSHFH, 
NUMPFROFLIMES)) 
R  NEXT, LAST); 
)*I  ♦  J/fl 

f alsf; 

TFSTl  THFN  0  FLSF  J  FI) 

«-  K  +  l  -  IF  TFSTl  THFN  0  ELSF  L  +  M  FT; 
12*TFST3; 

T2  «•  TFST3  <-  TRUF; 
bFP  ♦  jOP.RFCnRDS.TTMEFlKlSMED 
RECORDS. timfstarted; 
2  AND  TFSTl 

Q  >=  3  THFN  L  ELSE  M  FT 
SE  J  OF  K#K>K#L#l#L#M#M,v, 

IF  I  «■  (*  +  l)  MOD  50  =  2 
THEN  I   ELSF  0  FI 
AC 

T2    <•    FALSF 

TRUE 


END 


0000C100 
00000200 
00000300 
00000400 
00G005CC. 
00000600 
0000070C 
OOOCOPOO 
00000900 
0000 1 000 
0000110C 
00001200 
000013P0 
00001400 
00001500 
00001600 
00001700 
00001600 
00001900 
00002000 
00002100 
0000220C 
0000230G 
000024CG 
00002500 
00002600 
00002700 
00002600 
00002900 
00003000 
00003100 


2U0 


osi? 


P  l  G  T I 
SUPjl  CT 

InTEGFp  l>j>(k»i  »m)«-0/*,y; 

=  T 


TL  L I  AC  IV  TRANSLATOR  WRITING  SYSTEM 
COf-PIlFR  -  VERSION  1  JANUARY   3'  >9?1   *T 

PROGRAM  PAA     /PAA 


OOOOOlOO  1 
00000200  2 
00000300        3 


I?il4  P.M. 


=  J 


(OCOOOt  1 
1 0  0 , 0  0 C I) 
(00,0002  5  = 

(00,0003)  = 
((f'/fOOfl)  = 
00) l( 000 
001  IC001 
001  iCOOZ 

001 ioro3 

001  «(  00« 
001  |0005 

0  0  1  I  0 0 0 1 

(  c  0  ,  c  o  0  5  )  = 

(00,0006)  = 
I   0  I  N 1  E  R 

(0  0,  (.00  7)  = 

001  ICC  07 
001 iCOOb 

001 roeos 

FOLLFA^ 


F-  f  MET  Al  L 

f.  6  L'  r  -  r  a  l  l 
f  MT  -CALL 


f 00,0002) 
(00,0003) 

roo,r>oo*) 


j.,Trr.FP-LiTFPA|  -r  All 
STr.RF-I(.Tf  r.FP"FAfJT  1*1  ' 
STpPF-lMrCFP-FARTlAl1 
fiTpPF-INTE  GFP 


PFSTRliCTIVF 
PESTRtlCTIVF 


}  *    ^'  l '  |_  l  , 


P 


^  awt-tai l      (00,0007) 
y  hi  i 

STrPF-PClN'TFR 
TPST1 »  TF  ST? I 


(0r,CC08)    =    TF<=Tl 
(00, (009)    =    If  "^T? 

STMJCThFF     JTP( 

U'TFGER    NUMBFR/PPICP'TYJ 

(00,0010)     =    Jf'P 
(00,001  1)    e    *  t.vnFP 
(00,0012)    =    FFTpPTTY 

STRUCTURE    REcDPn?( 


00000400 


■f     00000500  5 

00000600  6 

00000700  7 


INTFOFP    TT  RESTARTED.  TlK'Fr  I  NlSHEO, 


(00,0013)     =    P  f  r  P  P  n  S 

(  0  0  ,  C  0  1  4  )    =    TJiTSTARTtO 

(00,Cr>1b)     =     TI"FFlMIShFD 


H'MPEROFLTNES); 


(00,0016)     =     NI'MpFROFLlNES 

POINTER    NEXT,LAST)> 


OOOOOPOO 
00000900 


O00C10OO 
00001 100 


10 

11 


(00,(014)     -     MVT 


2  ia 


(00,0015)  = 

I  «•  J 


I  AST 
u  (K  «■  *  +  l  )*I 


+  J/M 


00001200 


12 


001 
001 
001 
001 
001 
0C1 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
001 


001 
001 
001 
001 
001 
001 


001 

oci 

001 
001 
001 
001 
001 
001 
001 
001 
001 
001 
00) 


010 

on 

012 

013 

014 

015 

016 

016*** 

017 

016 

019 

020 

021 

022 

023 

021 

025 

026 

026*** 

027 

TEST1  «■ 


NAMF- 

mmf- 

NAMF" 
DUPll 
INTFG 
Anp 

STpPF 
STflPF 
MmF" 

LnAD- 

MIM  TT 

N  A  M  F  - 

LfiAD- 

MMF" 

IPA^- 

l)  T  V  I  n 

Anp 

STpPF 

STPPF 

STppF 

TFST2 


CALL  (00,0000)  T 
CALL  (00,0001)  J 
CALL       (00,0002)       K 

CATF-TPPTF-STACK-ANp-LOAD-INTFcFR 
FP-LITFPAl-CALL       1 


IN 
-IN 
CAL 
INT 
PLY 
CAL 
INT 
CAL 
INT 
F 


TFGFR 

TEGFP-PAPTIAL-PESTRUCTIVF 
L   (00,0000)   I 
FGFR 

L   (00,0001)   J 

EfiEp 

L   (00,0002)  Y 

Er,EP 


-INTECFP 

-INTFGFP-PAPTIAL-OESTRUCTIVF 

-INTEGER 

*  false; 


00001300! 


13 


0026 

0029 

0030 

0031 

C031*** 

0032 


NAMF-CALL  (00,0006)  TFSTl 
NAME-CALL  (00,0009)  TEST? 
F  At  SF 

STpRE-RPOLFAN 

STpRF-BOPLFAM-pAPTIAL-rFSTPliCTIvF 

STpPF-RDOLFAM 


JOB. NUMBER  «-  IF  TFSTl  THEN  0  ELSE  J  FIJ 


00001400; 


14 


0033 
0031 
0035 
0036 
0037 
0036 
0039 
0036*** 
0040 
0041 
0042 
0040*** 
0043 
PEGU 


NAME-CALL   (00,0010) 
IMTEGER-LITFPAl -CALL 
MAKF-INDEX   NUMP.FR 
NAMF-CAIL   (00,0006) 
LPAr-RDOLFAM 

***  (rranch-if-false 
imteger-litfpal -call 
f^ranch-if-falsf 


JOR 
000 

TFSTl 

INSTRUCTION  WILL 
0 
(001 10041 ) 


***  (PRANCH  INSTRUCTION  WILL  BE  HERF) 

NAMF-CALL   (00,0001)   J 

inAP-lNTEOER 

PR/JNCH  (00110043) 

STpRF-INTEGFR 


BE  HEPF)  *** 


*** 


INTERFP  Z'O  *  K+l  -  IF  TFSTl  THEN  0  ELSE  L  +  M  FT  I 


00001500 
00001600 


15 
16 


(01,0000)  : 

:  7 

(01/0001)  : 

:     0 

00?IOOOC 

NAMF- 

00?J0001 

r  AMF- 

002J0002 

LOAP- 

0O?t0003 

intfg 

002J0004 

Anp 

00?»0005 

NAME- 

00?»0006 

LOaP- 

00PI0007 

**+  ( 

0C2JC006 

INTER 

CALL   (01,0001) 
CALL   (00,0002)   K 
INTECFP 
ER-LITFRAl -CALL   1 

CALL   (00,0008)   TFSTl 

PPPLFAM 

BPAh;CH-lF-FALSF  INSTRUCTION  WIIL  BE  HERF)  *** 

ER-LITFPAL-CALL   0 
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)  0  2:0007*** 
)0?t0009 

)0?»0C10 
)0?KC1  1 
)0?:C012 
)0?lOO)  3 
)0?tCCH 
)0?!0C09*** 
)02:CC15 
)02i0016 


[01 ,0002) 

:ci »coo3) 


FRANCH-JF-FAISF  (00?»0010) 

***     (PPAKOH     IN^TRtlCTinN    WILL     PE    MFPF)     *** 

KAd«F-CAl.L        (00,0003)       L 

LHAP-INTEGFR 

NM'F-CALL  (00,000H) 

LnAH-IMECFR 

P&ANCH 

S  M  P  T  K  A  C  T 
STrRf-IMEGFR 


M 


(00210015) 


PPPLFA>"  TFST2,TFST3J 


=  TF*T? 
=  TF«.T3 
7FST1  *■ 


TFST2  «■  TFST3  «■  TRUE) 


00001700 


00001600 


17 


16 


)0?l0017 

)0?«C016 

)02«0019 

)02lG020 

)02t0021 

)0?t 0021*** 

)05>tOO?2 

)02  t 0022*** 

)02«0023 

X 


)02: 
)02: 
)02i 
)0?i 
)02t 
)02: 
)0?« 
)02: 
)0?« 
)02» 


)02: 
>0?r 
)0?  I 
)02: 

)02t 
)C?» 
>0?l 
)02t 
)02: 
)0?i 


0024 

CO  25 
0026 
C027 
0026 
(029 
00  30 
0031 
0032 
0033 


C(  31 
0035 
0C36 
0037 
0036 
0039 
OOlC 
OOi  1 
001  2 
0013 


)02!C  Oil 
>0?«G015 
)02i 0016 


I02IC017 
)02:C016 
>0?»0019 
I02I0050 
)02i005l 


(00,0008) 

TESTl 

(01,0002) 

TFST? 

(01,0003) 

TEST3 

KAt.'F-CAl  L 
NAMFTALL 
M  M  F  -  C  A I  L 
T"l'f 

STrPF-PHOLFAM 
STppF-pnni FAN' 
STpFF-oppLFAN 
STpPE-BODLEAN" 
STPRF-POGLFAM 
JpP.Nl>PFP    +    jnP.FFCnPDS.TTMEFU  ISHFD 


PAPTIAL-OFSTRIICTIVF 
•FAPTIAL-DE5TPUCTIVF 


00001900 


19 


MvF-CALL       (00,0005) 
NAwF-CALL       (00,0010) 
IMTf  OFR-LITFRAL-rAl.L 
MkFMNPEX       UUK'REP 
LnAO-lMEOFP 
MMF-fAU        (00,00fG) 
IMTf  OFR-LITFRAl -CALL 
MkF-JNPEX       PEfpPrS 
1MTF0FP-LITFPAL-CALL 
HARF-INL'EX       TlHFFINISHFD 
-    JOB.RFCORDS.TJMESTARTFDJ 


X 

JOP 

000 


jnp 
oo? 

001 


00002000  20 


LOAO" INTEGER 

APp 

navf-call  (00,0010)  jor 

intfcfr-litfral-gall  00? 

MAKF-INDEX   pfopdps 

IMTf  GFR-L  TTFPAl  -CALL        000 

MAkF-TMOEX   TlK'ESTAPTFP 

LHAT-IMF  r.FP 

SUPTPACT 

S  T  p  P  F  -  1  N  T  E  C.  r  r 


Z    «■     TF     TFST2     ANP    TFST1 

MMF-CAl L        (CI ,0000) 
KAVF-CALL        (01,0002) 
L  HAr-PPHLFAM 
THEN     IF     C    >=     3     THEN 


'CALL       (0C,000B) 
■RPOLEAN 


NA^'F' 

LHAP' 

ANp 

*♦*     (PPAt>CH-IF-FAl  SE 

KAMF-CAIL        (01,0001) 


7 
TEST2 

L    El SF    h    FI 
TESTl 


INSTRUCTION 
0 


00002100       21 


00002200       22 


Will  BF  HFPF)  *** 
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00? i (052 

00?*0O53 

002*0054 

00?*0054 

00?»0055 

00?:0056 

00?*GC54*** 

00?*0057 

002*0056 


00?  t 

00? 
00? 
00? 
002 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
00? 
002 


0059 

0057+** 

0050*** 

0060 

0061 

0062 

0063 

0061 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0071 

0075 

0076 

0077 

0078 

0079 

0080 

00  81 

0082 

0083 

0084 

0085 

0066 

0087 

0086 


LOAP-INTEGER 
INTFr.rp-LITFRAl  -CALL   3 

intfgfr-grfatep-pp-foual 

***  (pranch-tf-falsf.  instruction'  will  be  hepf)  *  +  * 
kamf-call  (00,0003)  l 
lpap-integf.r 

pran'ch-if -falsf      (002*0058) 
***  (branch  instruction  will  re  here)  *** 
namf-call  (00,0001)  m 
fi sf  case  j  of  k,k,k»l>l>l#n>m,m> 

LOAn-lNTEGFR 

BRANCH  (002*0060) 

BRAK'CH-IF-FAI.SF        (00?J0061) 

***  (BRANCH  INSTRUCTION  WlLl  RE  hERF)  *** 

NAVF-CALL   (00,0001)   J 

LOAD-lNTErER 

***  ( INDEXEP-BFANCH  INSTRUCTION  \,ILL  BE  HERF)  *** 

NAME-CALL   (00,0002)   K 

LOAD-INTEGER 

***  (BRANCH  INSTPUCTION  MLl  BE  HERF)  *** 

NAvF-CALL   (00,0002)   K 

lpao-integer 

***  (branch  instruction  will  re  herf)  *** 

navf-call  (00,000?)  k 

loao-integer 

***  (branch  instpuction  wl  li.  be  herf)  *** 

na>'f-call  (00,0003)  l 

loap-integfr 

***  (branch  instruction  will  be  here)  *** 

na^f-call  (00,0003)  l 

load-integer 

***  (branch  instruction  will  be  werf)  *** 

NAt-'F-CALL   (00,0003)   L 

lpap-tntegEp 

**+  (branch  instruction  "ill  be  herf)  *** 

NAMF-CALL   (00,0004)   M 

LOAO-INTECER 

***  (BRANCH  INSTPUCTION  WILL  BE  HERE)  *** 

NAMF-CALL   (00,0004)   M 

LOAC-INTEGFP 

*+*  (BRANCH  INSTPUCTION  WILL  RE  HERF)  *** 

NAMF-CALL   (00,0004)   M 

IF  I  <•  (*+D  MOO  50  =  2 


00002300 


23 


00002400 


24 


00?!0069 

00? j0090 

002*0091 

002i0092 

002*0093 

00?*C094 

002:0095 

002*0096 

00?*0097 

00?i0097*** 

00?*0098 


LOAP- 

***  ( 

I*  AMF- 

til'pLT 

IN'TFC, 

APp 

I^TFC 

NOP 

STpFF 

STppF 

INTFC 


INTEGER 

PRANCH  INSTRUCTION  WILL  RE  HERF)  *** 

call  (oo,oooo)  t 

CATE-TPB-PF-STACK-ANO-t  OAD-TNTFgER 
FR-LITFPAl -CALL   1 

ER-LITFRAl-CALL   50 

-INTEGFR 

-INTEGFP-PAPTIAL-PESTRUCTIVF 
FR-LITFRAL-CAl.L   2 

THFN  I   ELSE  0  FT 


000025001 


25 


00?:C099      IMTFGER-EOUAL 

00?*0099      ***  (PRANCH-IF-FALSE  INSTRUCTION  WILL  BE  HEPF)  *** 

00?|0100      NAMF-CALL   (00,0000)   T 


2kk 


01  ? :  0 1  0  J 

;      : ■  ;( c  99*** 

(     ?  I  <  10? 

01  ~  :0l  0  3 
00? » 010?*** 


or?: c ioi 


I  n  />  p  -  IN  T  E  G  F  R 

f-P/>MCM-IF-FALSr  (002SP103) 

**+     (PRANOH    T  K  «;7PliCTIPK'    KILI.     RE    HEPF)    *** 
IK'TEGFP-LITEPAI-CALL       o 
BRANCH  (00210101) 

ESAC 

***     (RRANCH    TNST"UCTTfW    WILL    RE    MERE)    *** 


00002600 


26 


cc? 

•  CIO'-*** 

f-P/^TH 

(002tC0ft1) 

Ol  ? 

•0066*** 

h  R  A  V  C  M 

(002tnl 155 

( p? 

r  i  06  +  ** 

BRANCH 

(00210067) 

c :  ;-- 

0069*** 

F  R  a  N  0  H 

f 00?  »  01 15) 

00? 

i  f I  07*** 

r-RAK'CH 

(0P2J0070) 

c  o  ? 

r  c  7  ?  *  *  * 

B  R  A  N  C  H 

(00710115) 

00? 

I  o  l  0 1  *  *  * 

I  PA  NTH 

(002J0073) 

00? 

007b*** 

F  R  A  N  C  H 

(0P2IO115) 

00? 

C l 09*** 

branch 

(00?tP076) 

00? 

0  (  7  b  *  +  * 

B R A  NT  H 

(002:0115) 

00? 

C  1  10*** 

[  P  A  M  C  H 

(00?»C079) 

00? 

0081 *** 

P  R  a  N  C.  H 

(00210115) 

00' 

0  1  1  1  *  *  * 

F  R  A  N  C  H 

(00?«008?) 

00' 

0  0  8 1  *  *  * 

BRANCH 

(002JM15) 

00? 

Oil?*** 

BRANCH 

(0P2«00R5) 

00? 

0067*** 

P.  RANCH 

(002J0115) 

00? 

0113*** 

F  R  A  N  0  H 

(002I00A8) 

00?' 

0  0  9  0  *  *  * 

F  R  A  M  C  h 

(00?»P115) 

00?. 

0)11*** 

BRANCH 

(00210091 ) 

OC?  : 

0101*** 

BRANCH 

(002JO115) 

00?: 

0  0  6  3  *  *  * 

pipFXED-bRANCH 
FTi 

(002«0105) 

00?: 

0060*** 

RRANCH 

(002JOH5) 

00?: 0  115      STnPF-lNTFGER 

TFST1  *  TEST2  <•  FALSF 


00?»0l  1 6 
0  0  ?  :  C  1  1  7 
0  C  ?!  0 1  1  8 
END  I 

00210119 

00?:0l 1 9*** 
00?  I  0  3 20 

TEST1  <- 

00) :0C11 
0  0)  :  c  0 1 5 
OOl t  0016 
ENP 

0  0) 1 0  0  4  7 

001  i C  0  A  7  *  *  * 

OC) :0018 


MS'F-CAI  L 
NANE-CALL 
r  »|  sf 


(00,0008)   TESTl 
(01,0002)   TEST2 


STpPF- 
5TPPE- 
STPPF- 
TE?T2 


PPOLEAK' 

BOOLEAN" 

BOCLFAN 

«■  TRUE 


PARTIAL-DESTRUCTIVE 


NANF-CAI.L 
t  AS'F-CALL 
TP|iF 


(00,0008)   TESTl 
(00,0009)   TEST2 


STppE-ppoi  FM 
STppF-ppoi FAN 
STpRE-RUULFAM 


00002700 


00002600 


00002900 


00003000 


00003100 


27 


26 


29 


30 


31 


•PARTIAL -PFSTPMCTJVE 


CC  ' IGF  ATl'LATTRK  <^,   NO  SPUROF  PROGRAM  FPpOPS  WEPE  PETFCTFO  IN  PASS  1, 


thf  tptal  cpu  time  was 
thf  tfual  i/o  time  was 
the  total  elapsfo  time  was 


0  MINUTES  30.0  SECONDS. 

0  MINUTES  37.5  SECONPS. 

1  MINUTES   9.7  SFCDNPS. 
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